endlosschleife

[cell]

weiß jemand warum hier eine endlosschleife ist

Delphi-Quellcode:

begin


with DataModule1 do
  begin
       //Query.close;
       Query.SQL.Clear;
       Query.SQL.Text:= selectsql('Anfangsgewicht_Belag_vorne_oben, Anfangsgewicht_Belag_vorne_unten','Friktionstest','Testnummer='+frmtestauswahl.cbotestnummer.Text,'','');
       //ShowMessage(inttostr(length(Query.SQL.Text)));
       Query.Open;
       Query.First;
       while not Query.Eof do
       begin

             frmgewichtaendern.txtbelagvo.Text:=(Query.Fields[0].AsString);
             frmgewichtaendern.txtbelagvu.Text:=(Query.Fields[1].AsString);
       end;
  end;

thx 4 help

[Duke_2004]

Warum ist das Close auskommentiert?
Mach doch einfach:

Delphi-Quellcode:

If Query.Active then
  Query.Close;

(Bei mir gabs schon Probleme, wenn ich SQL-Text einfügen wollte, aber die Query noch offen war)

Zur Schleife:

Delphi-Quellcode:

while not Query.Eof do 
       begin 
             frmgewichtaendern.txtbelagvo.Text:=(Query.Fields[0].AsString); 
             frmgewichtaendern.txtbelagvu.Text:=(Query.Fields[1].AsString); 
             
             Query.Next;   // -> vergessen, sonst bleibt er ja immer auf einem Datensatz stehen
       end;

:-D Viel Spaß noch...

[shmia]

Zitat:

Zitat von cell

weiß jemand warum hier eine endlosschleife ist

Weil in der While-Schleife ein Query.Next fehlt. (rotes Gemüse auf den Augen :-D )
Query.SQL.Clear kannst du dir übrigens schenken, wenn ein Zuweisung an Query.SQL.Text erfolgt.

[cell]

thx des wars =D

[malo]

Auch wenn es hier nicht direkt zum Thema passt: Bitte schreib nicht in die "Sprache" Delphi 4. Delphi 4 entspricht Delphi für Win32. Wäre schön, wenn du das ändern und demnächst berücksichtigen könntest. Danke :)