hi,
ich habe ein Problem und weiß nicht weiter.
Habe Windows 7 und Delphi XE5
Habe eine Code:
Delphi-Quellcode:
Form1.SQLQuery1.SQL.Text:='SELECT * FROM einausmon ORDER BY Jahr, Monat, Ware ';
Form1.SQLQuery1.Open;
while not Form1.SQLQuery1.EOF do
begin
f1:=Form1.SQLQuery1.Fields[0].AsString;
f2:=Form1.SQLQuery1.Fields[1].AsString;
f3:=Form1.SQLQuery1.Fields[2].AsString;
f4:=Form1.SQLQuery1.Fields[3].AsString;
f5:=Form1.SQLQuery1.Fields[4].AsString;
f6:=Form1.SQLQuery1.Fields[5].AsString;
f7:=Form1.SQLQuery1.Fields[6].AsString;
f8:=Form1.SQLQuery1.Fields[7].AsString;
f9:=Form1.SQLQuery1.Fields[8].AsString;
yy:=StrToInt(f2);
mm:=StrToInt(f3);
dd:=1;
dat1:=EncodeDate(yy, mm, dd);
yy2:=YearOf(vdat16);
mm2:=MonthOf(vdat16);
yy3:=YearOf(bdat16);
mm3:=MonthOf(bdat16);
if ((yy >= yy2) and (yy <= yy3) and (mm >= mm2) and (mm <= mm3)) then
begin
...........
end;
Form1.SQLQuery1.Next;
end;
Form1.SQLQuery1.Close;
Wenn ich Haltepunkte setze und Compeliere ist eine Zeile Grün (siehe Anhang).
Wenn ich nun das Programm im Einzelschritt (F9 bei den Haltepunkten) durcharbeite,
so springt das Programm bei der grünen Zeile wieder auf den ersten Haltepunkt usw.
So oft bis alle Satze in der Datenbank gelesen sind.
Danach geht es mit Form1.SQLQuery1.Close; weiter.
Die Codezeilen dazwischen werden nicht berücksichtigt.
Hat jemand da eine Idee?
Gruß Jürgen