TQuery variabel

[mschaefer]

Delphi-Quellcode:

begin 
SQLString:= StringReplace(Edit2.Text,'#','_',[rfReplaceAll]); 
SQLString:= StringReplace(SQLString,'..','%',[rfReplaceAll]); 
SQLString:= StringReplace(SQLString,char(34),' ',[rfReplaceAll]); 
Edit1.Text:= SQLString; 
  with Query1 do 
  begin 
    Active:=False; 
    SQL.Clear; 
    SQL.Add('Select * from gesamt3 where feld002 Like %:text% '); 
    ParamByName('text').asString := SQLString; 
    Active:=True; 
  end; 
end;