Hi,
Ich frag ja nur ungern aber weiss jemand wie ich den Quellcode Anwende bzw. wo ich das Suchwort eingebe.
Delphi-Quellcode:
procedure DatabaseSearch(DatabaseFilename, TablePart, SearchString: String);
var
DataSource: TDataSource;
DSTable: TTable;
begin
DataSource := TDataSource.Create(Form1);
DSTable := TTable.Create(Form1);
try
DataSource.DataSet := DSTable;
DSTable.TableName := DatabaseFilename;
DSTable.Active := true;
if DSTable.FindFirst then begin
repeat
if AnsiLowerCase(DSTable.FieldByName(TablePart).AsString) =
AnsiLowerCase(SearchString) then begin
// Hier kann man nun auf die Daten der einzelnen Einträge zugreifen
// über z. B. DSTable.FieldByName('ID').AsInteger usw.
end;
until DSTable.FindNext = false;
end;
finally
DataSource.free;
DSTable.free;
end;
end;
Quellcode
MFG
Deadinpac