In Form mehrere Edits zum suchen verwenden

[Albi]

Du hast recht gehabt, die Lösung ist ganz einfach. Man nehme eine String variable und setzt in das Edit-Change einfach den SQLString und in der Abfrage schriebt man nur noch Query1.SQL.Text:= Sort (Variable).

Delphi-Quellcode:

procedure TForm2.Edit2Change(Sender: TObject);
begin
Saved:= False;
Sort:= ('SELECT * From Test.db WHERE ID ='+Edit2.Text+'');
end;

Delphi-Quellcode:

Try
  Form1.Query1.SQL.clear;
  Form1.Query1.SQL.Text:= Sort;
  Form1.Query1.Active:= True;
  If Form1.Query1.RecordCount = 0 Then
    ShowMessage('Keine Daten!')
     else
  Form2.Edit1.Text:= Form1.Query1.fieldByName('Test1').AsString;
  Form2.Edit2.Text:= Form1.Query1.fieldByName('Test2').AsString;
  Saved:= True;
 except
end;

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]