Delphi-PRAXiS - Delphi WriteLn begrenzt?

Hi @ all.

Ich habe ein Programm geschrieben, dem ich eine Textdatei übergeben kann (derzeit noch hardcoded, ich brauch das Prog nur intern). Das Programm bastelt jede mögliche Kombination der Wörter dieser Textdatei zusammen, und zwar in dem Format: wortzahlwort (z.B. test1test). Das ganze wird dann als Textdatei gespeichert, eine Kombination je Zeile.

Das Programm selbst funktioniert eigentlich, aber es bricht plötzlich mit dem Schreiben per WriteLn ab. Es kommt keine Fehlermeldung oder Warnung. Es hört einfach mitten im Schreiben der Textdatei auf und tut so, als ob es fertig wäre.

Der Code ist nicht sehr lang, und da man es im Zusammenhang vielleicht besser versteht, hab ich ihn mal komplett angehangen. Derzeit ist ne ProgressBar mit drin, die ist aber noch nicht eingearbeitet.

Drückt einfach einmal auf Start, wartet 2 Sekunden und schaut euch die gen.txt an. Warum bricht der Schreibvorgang einfach ab?

C ya.

PS: Ja, ich weiß, man soll nicht mit dermaßen vielen globalen Variablen arbeiten, aber es ist auch nicht für eine weltweite Vermarktung gedacht :P .

Edit:

Für alle, die sich nichts runterladen wollen :P :

Delphi-Quellcode:

			var

  Form1: TForm1;

  Anzahl : Integer;

  F : Textfile;

  G : Textfile;

  Zahl : Integer;

  Zaehldurchlauf : Integer;

  Wort2 : Integer;

  ErstesWort : String;

  ZweitesWort : String;

Delphi-Quellcode:

			function PasswortGen() : String;

begin

  if Zaehldurchlauf < Anzahl*Anzahl then

  begin

    Zaehldurchlauf := Zaehldurchlauf + 1;

  end

  else

  begin

    if Zahl < 9 then

      Zahl := Zahl + 1

    else

      Zahl := 0;

    Zaehldurchlauf := 1;

    Reset(G);

    Reset(F);

  end;

  if Wort2 < Anzahl then

  begin

    ReadLn(G,ZweitesWort);

    Wort2 := Wort2 + 1;

  end

  else

  begin

    Reset(G);

    ReadLn(G,ZweitesWort);

    Wort2 := 1;

    Readln(F,ErstesWort);

  end;

  result := ErstesWort + IntToStr(Zahl) + ZweitesWort;

end;

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  Z : Textfile;

  FileName : String;

  Zieldatei : String;

  Maximum : Integer;

  Durchlauf : Integer;

  Passwort : String;

begin

  FileName := ExtractFileDir(ParamStr(1)) + 'test.txt';

  AssignFile(F,Filename);

  Reset(F);

  while not eof(F) do

  begin

    Readln(F);

    Anzahl := Anzahl + 1;

  end;

  Reset(F);

  ReadLn(F,ErstesWort);

  AssignFile(G,Filename);

  Reset(G);

  Wort2 := 0;

  Zahl := 0;

  Label2.Caption := IntToStr(Anzahl);

  Maximum := Anzahl*Anzahl*10;

  Label6.Caption := IntToStr(Maximum);

  Zieldatei := ExtractFileDir(ParamStr(1)) + 'gen.txt';

  AssignFile(Z,Zieldatei);

  ReWrite(Z);

  for Durchlauf := 1 to Maximum do

  begin

    WriteLn(Z,PasswortGen());

  end;

end;

3 Labels auf der Form platzieren und die Label2, -4 und -6 nennen und einen Button draufwerfen.

Was zum testen (in eine test.txt schreiben und ins Progverzeichnis legen :D):

Zitat:

aaaa
aaab
aaac
aaad
aaae
aaaf
aaag
aaah
aaai
aaaj
aaak
aaal
aaam
aaan
aaao
aaap
aaaq
aaar
aaas
aaat
aaau