Und noch ne Frage..
Erstmal der Code:
Delphi-Quellcode:
var
Gesamt: Integer;
Richtig: Integer;
GesamtSoll: Integer;
zufallszahl: Integer;
LatEng: Integer;
maxiLat: Integer;
maxiEng: Integer;
SollZahl: Integer;
datenumber: Integer;
x: Boolean;
Deutsch: Array[1..4] of String;
DeutschG: String;
DeutschEng: Array[1..4] of String;
DeutschE: String;
StringList: TStringList;
BeforeAdd: Integer;
AfterAdd: Integer;
Counter: Integer;
//Main ist die Form
[...]
//In einer Procedure ÓKKLICK steht dann
begin
beginning:
FormVocsEng.TableEng.first;
Main.maxiEng := FormVocsEng.TableEng.RecordCount;
Main.zufallszahl := random(Main.maxiEng);
Main.SollZahl := 0;
repeat
application.processmessages;
FormVocsEng.TableEng.next;
inc(Main.SollZahl);
until Main.SollZahl = Main.zufallszahl;
BeforeAdd := StringList.Count;
with Main.StringList do
begin
Add(FormVocsEng.TableEng.FieldByName('Englisch').AsString);
end;
AfterAdd := StringList.Count;
if BeforeAdd = AfterAdd then
goto beginning;
OK.Caption := 'OK';
end;
Dann hab ich noch ja eine Datenbank und in der stehen so 15 Daten (Vokabeln)..
Wenn ich jetzt das Programm starte und einige Zeit ausführe (sprich=mehrmal auf den Button drücke), dann erscheint ja irgendwann mal die letzte Datenbank-Datei..Und wenn ich dann weitermache, dann kommt wieder diese Datei und dann wieder und immer so weiter... Das Programm bleibt da also hängen..
Weiß einer woran das liegen könnte oder ist das zu wenig Code?