Thema: Delphi Delphi-Source Quellcode

Einzelnen Beitrag anzeigen

Deadinpac

Registriert seit: 8. Aug 2003
Ort: Oberreute
74 Beiträge
 
Delphi 2007 Enterprise
 
#1

Delphi-Source Quellcode

  Alt 15. Aug 2004, 16:36
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
Sven Grimm
  Mit Zitat antworten Zitat