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