"Unknow Run-Time error : 104" an sinnloser Stelle...

[Teekeks]

Hallo!
Ich sitze an einem misteriösem Problem:
Zuerst der Code:

Delphi-Quellcode:

var datuf:textfile;
    pstr1:string;
    x:integer;
    datu: array of string;
{...}
    assignfile(datuf,pstr1);
    rewrite(datuf);
    X:=1;
    while not Eof(datuf) do
    begin
      SetLength(datu,X+1);
      Readln(datuf,datu[x-1]);
      x:=x+1;////////////////////////
    end;
{...}

Hier Die Fehlermeldung:

Zitat:

An unhandled exception occurred at $080484C3 :
Exception : Unknown Run-Time error : 104
$080484C3 main, line 117 of project1.lpr

Zeile 117 ist die Markierte.

Hat einer von euch ne´ Ahnung?

gruß Teekeks

[edit]
Fehler gefunden: es muss  reset(datuf); heißen.

[gammatester]

Du mußt Dich schon entscheiden, ob Du lesen oder schreiebn willst. Also ändere

Delphi-Quellcode:

rewrite(datuf);
//...
Readln(datuf,datu[x-1]);

nach (wahrscheinlich)

Delphi-Quellcode:

reset(datuf);
//...
Readln(datuf,datu[x-1]);

oder

Delphi-Quellcode:

rewrite(datuf);
//...
writeln(datuf,datu[x-1]);

Gammatester

[DeddyH]

Edith nicht gesehen?