Der Wert für s muß entsprechend des Index-Ausdrucks gebildet werden.
function FindKey(db: TTable; const s: string): Boolean;
var
Puffer: array[0..255] of char;
begin
if DB.IndexFieldCount > 0 then result := db.FindKey([s])
else begin
AnsiToNative(db.Locale, s, Puffer, 255);
DB.CheckBrowseMode;
DB.CursorPosChanged;
Result := False;
if DbiGetRecordForKey(DB.Handle, true, 0, 0, @Puffer, nil) = 0 then
begin
db.Resync([rmExact, rmCenter]);
Result := True;
end;
end;
end;
|