So..hab mal wieder nen Problem.
Und zwar will ich das machen:
Delphi-Quellcode:
procedure partdetect(id:integer; detect: TQuery);
var t2: integer;
var t: integer;
var Feld:
Array [0..7]
of String;
begin
detect.SQL.Clear;
detect.SQL.Add('
Select * from querys where id='+inttostr(id)+'
');
detect.Open;
while not detect.Eof
do begin
t2:=0;
for t:= 0
to 7
do begin
Feld[t]:=detect.FieldByName('
'+Part[t]+'
').AsString;
if(Feld[t]<>'
')
THEN Statement[t2]:=
SQL[t];t2:=t2+1;
end;
end;
So...das Qurey mit dem Namen detect hab ich ganz zu beginn von
unit 1 deklariert. Und auch schön mit der Datenbank verknüpft. Nur wenn ich die Prozedur aufrufe mit:
partdetect(1, detect);
Verfängt sich die Prozedur in eine Endlos Schleife...weiss jemand, woran das liegen kann? ich glaube ja, dass das Objekt nicht korrekt übergeben wird!