komische Fehlermeldung, was bedeutet das?

[omata]

Bereichsprüfung aktivieren + Debugger benutzen!

Welchen Wert hat Anzahl_Zufallszahlen?

[Sh4dd4r]

Anzahl_Zafuallszahlen bekommt den Wert den der Benutzer in einem dialog eingibt, im testfall war das meißtens 10...

wie soll i denn 0 werden? meine prozeduren geben keine werte zurück und da wo die i schleife selbst steht wird i außerhalb der schleife nicht verwendet...

[QuickAndDirty]

geht das

Delphi-Quellcode:

{$O-}
{$W+}
procedure TForm1.Button1Click(Sender: TObject);
Var i,h:integer;
begin

//Zufalls_Zahlen(Anzahl_Zufallszahlen);
Zufallszahlen[1] := 234
Zufallszahlen[2] := 4554;
Zufallszahlen[3] := 213;
Zufallszahlen[4] := 4654;
Zufallszahlen[5] := 124;
Zufallszahlen[6] := 123234;
Zufallszahlen[7] := 234;
Zufallszahlen[8] := 234;
Zufallszahlen[9] := 9342;
Zufallszahlen[10] := 234;
Anzahl_Zufallszahlen := 10;

WortWandel;

For i:=1 to Anzahl_Zufallszahlen do begin
  memo1.Lines.Add(IntToStr(Zufallszahlen[i])); //--->>> hier is der FEHLER 
end;

For h:=1 to Anzahl_Zufallszahlen do begin
  memo1.lines.add(WList1.word[h]);
end; 
{$O+}
{$W-}

[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,a: integer;
begin
  WList1.NumberOfWords:=0;

// Textdatei wird lesbar gemacht

  AssignFile(wordlist1,'wordlist1.txt');
  reset(wordlist1);

  // Einlesen bestimmter Zeilen der Textdatei

    a:=1;

    for h:=1 to Anzahl_Zufallszahlen do begin
      for b:=1 to (Zufallszahlen[a]-1) do begin
        readln(wordlist1);
        inc(a);
      end;
      readln(wordlist1,zeile);
      WList1.word[h]:=zeile;
    end;
    WList1.NumberOfWords:=a;
  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?

[spaxxn]

Eigentlich heisst: Neue Frage, neuer Thread!

Du erhöhst a bei jedem Schleifendurchlauf... guck dir das mal genau an.