Problem mit Laden einer Datei (ReadLn)

[Kasch]

Hallo Leute,

bin starkt deprimiert, weil ich immer wieder einen schweren Absturz ernte, wenn ich Zeilen aus einer Datei auslesen will.
Mein Lade-Button:

Delphi-Quellcode:

procedure TForm1.btn_ladeClick(Sender: TObject);
var

    daten: array[1..1000]  of string[64];
    a : Integer;
    datei: textfile;

begin


  AssignFile(datei,'e:\string.txt');
   reset(datei);
while not eof(datei) do
    begin
      inc (a);
      Readln(datei,daten[a]);
    end;

closefile(datei);


end;

Was mache ich so falsch, daß EAcessViolation "Zugriffverletzung bei Adress Bla Bla" entsteht?
Datei existiert, ist auch nicht offen oder so.
Ich will einfach nur jede Zeile dieser Datei in ein String-Array einlesen...

Wer kann mir da freundlicherweise helfen? Vielen Dank

[mkinzler]

Was für ein wert hat a am Beginn der Schleife?
Ich würde ne stringList zum speichern der Strings nehmen.

[Dax]

Wie mkinzler schon sagte wäre eine Stringlist besser:

Delphi-Quellcode:

var List: TStringList;
begin
  List := TStringList.Create;
  List.LoadFromFile(...);
end;

Wenn du aber bei deiner Methode bleiben möchtest, muss a zu beginn der Read-Schleife als Wert den ersten Index des Daten-Arrays tragen, also Low(daten), also 1. :)

[Hawkeye219]

0, weil er die Variable a vor dem Lesen erhöht :wink:

Gruß Hawkeye

[Dax]

Oh, stimmt :) Habs falschrum gelesen, sorry. Glaub mir nicht, Hawk hat Recht ^^

[mkinzler]

Tatsache ist aber, das der wert in dem geposteten Code nie gesetzt wird.

[Daniel G]

Zitat:

Zitat von Dax

Tatsache ist aber, das der wert in dem geposteten Code nie gesetzt wird.

Tatsache ist aber auch, dass Dax ihn darauf schon hingewiesen hat. ;)

Zitat:

Zitat von Dax

Wenn du aber bei deiner Methode bleiben möchtest, muss a zu beginn der Read-Schleife als Wert den ersten Index des Daten-Arrays tragen, also Low(daten), also 0. :)

[mkinzler]

Ich auch. ;-)

[Kasch]

Hallo,

vielen Dank. Ich nehme den Stringlist-Vorschlag dankend an!
Hatt alles perfekt funktioniert.

Habe aber immer noch nicht verstanden, warum es zu dieser Fehlermeldung kam.
Kann das mir einer bitte noch erklären?
Vielen Dank

[mkinzler]

Vielleicht am n?