blob: ad61ee03a4a59d19a4087124a4fff33c313f2522 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
{ %fail }
{ %norun }
{$ifdef fpc}
{$mode delphi}
{$endif}
type
inullinterface = interface
//no referencecount, only for fpc, not available in delphi
end;
locateresultty = (loc_timeout,loc_notfound,loc_ok);
tfield = class
end;
locateoptionty = (loo_caseinsensitive,loo_partialkey,
loo_noforeward,loo_nobackward);
locateoptionsty = set of locateoptionty;
imselocate = interface(inullinterface)['{2680958F-F954-DA11-9015-00C0CA1308FF}']
function locate(const key: integer; const field: tfield;
const options: locateoptionsty = []): locateresultty;
end;
imselocate2 = interface(imselocate)['{2680958F-F954-DA11-9015-00C0CA130801}']
function locate(const key: string; const field: tfield;
const options: locateoptionsty = []): locateresultty; overload;
end;
tc = class(tinterfacedobject,imselocate2)
function locate(const key: integer; const field: tfield;
const options: locateoptionsty = []): locateresultty;
function locate(const key: string; const field: tfield;
const options: locateoptionsty = []): locateresultty;overload;
end;
function tc.locate(const key: integer; const field: tfield;
const options: locateoptionsty = []): locateresultty;
begin
end;
begin
end.
|
