Query dynamisch erzeugen?

[rossmann]

Hallo

vieleicht hilft dir diese procedure etwas weiter
hier wird ein TQuery dynamisch erzeugt.

var SQL1 : TQuery;
TS : TStringList;
begin
TS := TStringList.Create;
try
SQL1 := TQuery.Create(Self);
try
SQL1.DatabaseName := 'DatabaseName';
SQL1.SQL.Add('select * from bybk0300 where');
SQL1.SQL.Add(' BK3BKNR=' + BKNR);
SQL1.SQL.Add(' and BK3STOR=' + STOR);
SQL1.SQL.Add(' and BK3POSN=' + POSN);
SQL1.SQL.Add(' and BK3TBER=''' + TBER + '''');
SQL1.SQL.Add(' and BK3WJHR=''' + WJHR + '''');
SQL1.Open;
TS.Clear;
while not SQL1.Eof do
begin
TS.Add(SQL1.FieldByName('BK3TEXT').AsString);
SQL1.Next;
end;
RESULT := TS;
finally
SQL1.Free;
end;
finally
TS.Free;
end;
end;