Endlosschleife, finde sie nicht, hilfe!

[Sh4dd4r]

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?

[LuCSteR]

also ich lasse schleifen auch gern mal bis 5000 und mehr laufen. das dauert mit sicherheit länger als eine sekunde. bei meinem laptop jedenfalls, welcher "brandneu" ist.


was dein code da genau macht hab ich nich geschaut...

[lbccaleb]

Zitat:

Zitat von LuCSteR

also ich lasse schleifen auch gern mal bis 5000 und mehr laufen. das dauert mit sicherheit länger als eine sekunde. bei meinem laptop jedenfalls, welcher "brandneu" ist.


was dein code da genau macht hab ich nich geschaut...

Das ist auch irgendwie nicht so richtig zu durchschauen...

[sirius]

Zitat:

Zitat von lbccaleb

Das ist auch irgendwie nicht so richtig zu durchschauen...

Klar. Er hat eine TextDatei. Dort will er zufällige Zeilen auswählen. Deswegen rennt er in der inneren Schleife eine bestimmte (eher zufällige) Anzahl an Zeilen vor um dann die nächste einzulesen.

[SirThornberry]

Drücke doch einfach mal die Pause Taste wenn er hängt und schaue wo er dann steht.

[Larsi]

Du musst i und h vorher auf 0 stellen.

[sirius]

Zitat:

Zitat von Larsi

Du musst i und h vorher auf 0 stellen.

:gruebel: bist du sicher, dass du grad im richtigen Thread gepostet hast?

[Larsi]

Könnte sein :oops: Kann den Thread von mir gerade mal jemand löschen.

[BullsEye]

Zitat:

Zitat von Larsi

Du musst i und h vorher auf 0 stellen.

Im QT kommt gar kein i drinne vor ;)

[HenKst]

Was genau steht denn in "Zufallszahlen"?

Wenn das ein dynamisches array ist das du mit sovielen Zufallszahlen gefüllt hast wie in "Anzahl_Zufallszahlen" steht, dann sollte die innere Schleife wohl eher bis [h-1] laufen und nicht bis [h]-1
Oder eben bis Random().
Ansonsten zeigt Zufallszahlen[h] auf irgendeine adresse im Speicher wo evtl. totaler Blödsinn, also ne riesengroße Zahl steht.