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]