Bei Anweisung reagirt das Programm nicht mehr

[PhöniX]

Wen das hier ausgefürt wird, reagiert das Programm nicht mehr:

Delphi-Quellcode:

procedure TMain.OKClick(Sender: TObject);
begin
 inc(datenumber);
 answer.visible := False;
 RightAnswer.visible := False;
 TextRight.Caption := '';
 YesOrNo.Picture := nil;
 NutzerEingabe.Text := '';
 SollZahl := -1;
 case FormKonf.Uebersetzung of
 0: begin
     maxiEng := FormVocsEng.TableEng.RecordCount;
     FormVocsEng.TableEng.first;
     maxiEngCount := 0;
     beginning:
     repeat
     randomize;
     zufallszahl := random(maxiEng);
     RandomCount[datenumber] := zufallszahl;
     for i:= datenumber downto 0 do
      if RandomCount[i] = RandomCount[datenumber] then
       goto beginning;
     until x = true;
     SollZahl := 0;
      repeat
       FormVocsEng.TableEng.next;
       inc(SollZahl);
      until SollZahl = zufallszahl;
    end;
...

Alle Variablen außer x(=Boolean) sind Integer..
Hab 8 Einträge in der Datenbank
Datenbank = Tabelle Paradox 7..

WARUM??

[chris]

hi,

benutze in der schleife application.processmessages

[stoxx]

kennst Du den Breakpoint von Delphi ? und die Taste F8 und F7 ??

[stoxx]

Zitat:

Zitat von chris

hi,

benutze in der schleife application.processmessages

ich vermute, dass er in der Endlosschleife hängt :-)

Code:

repeat 
       FormVocsEng.TableEng.next; 
       inc(SollZahl); 
      until SollZahl = zufallszahl;

[PhöniX]

ok..aber jetzt hab ich dsa problem, dsas wenn ich das prgramm beende, es immer noch im tast mananger bei prozesse läuft...
wie krieg ich das da nun weg?

[Luckie]

Stell in obigen Code mal den Cursor auf randomize und drücke F1. Dann bitte lesen, was da steht, eventuell löst das schon das Problem.

[Jörn]

Luckie möchte damit sagen das man Randomize nur einmal aufruft, am besten gleich im Form1Create...
Ich weiss ich bin ein Spielverderber

[PhöniX]

achso..danke