Delphi-Source Quellcode

[Deadinpac]

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