Der Wert für Grenze muß entsprechend des Index-Ausdrucks gebildet werden.
procedure SetRange(db: TTable; Grenze: string);
var
P: array[0..255] of Char;
begin
if Length(Grenze) > 0 then begin
AnsiToNative(db.Locale, Grenze, P, 255);
db.CheckBrowseMode;
Check(
DbiSetRange(db.Handle, True, 0,
length(Grenze), @p, true, 0, length(Grenze), @P, true));
db.First;
end
else begin
db.CheckBrowseMode;
Check(DbiResetRange(db.Handle));
db.First;
end;
end;
|