Textzeile in Txt auslesen

[Duffy]

Hallo Alexander Roth,
habe mal deinen Code kommentiert. Ich denke Du siehst selber was falsch ist. Ferner würde die Stringliste auch mit einem Fehler versagen. Du wirbelst da mit j und aerg rum, aber was ist wenn deine Liste nur einen String enthält und deine Variablenwerte oberhalb von 0 liegen?

Zitat von Alexander Roth:

Ja gut, ich habs jetzt umgestellt, klappt aber trotzdem noch nicht. Der Computer hat nun einen seiner anderen Fehler ausgespuckt beim ausführen.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var    sl: TStringList;
    f:textfile;

begin

assignfile(f, 'E:\Delphi\Mathematik\Aufgelistete Primzahlen.txt'); <= OK Darei zuweisen
rewrite(f); <= und eine leere aufmachen
write(f, '2'); <= eine Zahl als Text hinein
closefile(f); <= und die Datei wieder schließen
sl := TStringList.Create; <= Stringliste erzeugen

    while j < aerg do
      begin
        sl.loadfromfile('E:\Delphi\Mathematik\Aufgelistete Primzahlen.txt');  <= Datei laden
        reset(f); <= Datei zurücksetzen. IST ABER NICHT MEHR OFFEN -- FEHLER WEIL OBEN SCHON GESCHLOSSEN
        primzahl:=strtoint64(sl[j]); <= mach irgendwas ... 
        closefile(f); <= ist zwar schon zu ... macht nichts ... die Runtime bringt einen Fehler
        sl.free; <= Sringliste freigeben
      end;
end;

bye
Claus