Query mit Parametern vorbereiten

[r_kerber]

Zitat von Sharky:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 with ZQuery1 do
 begin
   Close;
   SQL.Clear;
   SQL.Add('SELECT *');
   SQL.Add('FROM test1');
   SQL.Add('WHERE :key = :Value1');
   SQL.Text := StringReplace(SQL.Text,':key',Edit1.Text,[rfReplaceAll,rfIgnoreCase]);
   ParamByName('Value1').AsString:= Edit2.Text;
   Open;
 end;
end;

Warum nicht so:
   SQL.Add('WHERE ' + Trim (Edit1.Text) + ' = :Value1');