ich bin es schritt für schritt durchgegangen und habs hinbekommen... jetzt hab ich nurnoch 1 problem. wenn ich mein programm starte und eine bestimmte sache mache hängt es sich auf, ohne fehlermeldung... das liegt normalerweise an einer endlosschleife oder? oder kann es noch an etwas anderem liegen?
könnte es sein dass eine for i:=1 to 2800 schleife zu lange braucht? hier hab ich sie:
Delphi-Quellcode:
procedure TForm1.WortWandel;
var zeile: string; b,h: integer;
begin
WList1.NumberOfWords:=0;
// Textdatei wird lesbar gemacht
AssignFile(wordlist1,'wordlist1.txt');
reset(wordlist1);
// Einlesen bestimmter Zeilen der Textdatei
for h:=1 to Anzahl_Zufallszahlen do begin
for b:=1 to (Zufallszahlen[h]-1) do begin
readln(wordlist1);
end;
readln(wordlist1,zeile);
WList1.word[h]:=zeile;
end;
WList1.NumberOfWords:=Anzahl_Zufallszahlen;
CloseFile(wordlist1);
end;
die schleife mit b läuft bis zu einer zufallszahl (damit wird eine zufällige zeile aus einem textdokument angewählt und anschließend in ein array gespeichert.
schleife mit h wird so oft durchlaufen, wieviele zufällige zeilen der benutzer möchte... hab im testlauf da mal 10 angegeben. kann das den pc überlasten oder länger als 1 sek dauern?