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

zusammenfalten · markieren

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??

hi,

benutze in der schleife application.processmessages

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

Zitat von chris:

hi,

benutze in der schleife application.processmessages

ich vermute, dass er in der Endlosschleife hängt

markieren

Code:

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

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?

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.

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

achso..danke