In Datenbank(Edit1.Txt) suchen

[jfheins]

Okay ... Quick&Dirty ginge es wohl so:

Delphi-Quellcode:

// In das OnClick-Event von einem Such-Button
begin 
  Form2 := TForm2.Create(Form1); 
  Form2.Show; 
  Form2.Tabelle.Cells[0,0] := ' '; 
  Form2.Tabelle.Cells[1,0] := 'Name'; 
  Form2.Tabelle.Cells[2,0] := 'Vorname'; 
  Form2.Tabelle.Cells[3,0] := 'Strasse'; 
  Form2.Tabelle.Cells[4,0] := 'PLZ'; 
  Form2.Tabelle.Cells[5,0] := 'Ort'; 
  Form2.Tabelle.Cells[6,0] := 'Telefon'; 


  while not eof(f) do 
    begin 
      read(f,Adresse); 
      Satznummer := Satznummer + 1; 

      with Adresse do 
      begin 
        if (pos(Name, SUCHFELD.Text) > 0) or (pos(Vorname, SUCHFELD.Text) > 0) then
        begin
          Form2.Tabelle.Cells[0,Satznummer] := IntToStr(Satznummer); 
          Form2.Tabelle.Cells[1,Satznummer] := Name; 
          Form2.Tabelle.Cells[2,Satznummer] := Vorname; 
          Form2.Tabelle.Cells[3,Satznummer] := Strasse; 
          Form2.Tabelle.Cells[4,Satznummer] := PLZ; 
          Form2.Tabelle.Cells[5,Satznummer] := Ort; 
          Form2.Tabelle.Cells[6,Satznummer] := Telefon; 
        end;
      end 
      end

Dann solltest du in die Datensätze angezeigt bekommen, in deren Name der Suchterm vorkommt ...