mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 00:38:06 +02:00
52 lines
1.5 KiB
ObjectPascal
52 lines
1.5 KiB
ObjectPascal
{ %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; overload;
|
|
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;overload;
|
|
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;
|
|
|
|
function tc.locate(const key: string; const field: tfield;
|
|
const options: locateoptionsty = []): locateresultty;
|
|
begin
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|
|
|