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

zusammenfalten · markieren

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.

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

markieren

Delphi-Quellcode:

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

nach (wahrscheinlich)

markieren

Delphi-Quellcode:

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

oder

markieren

Delphi-Quellcode:

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

Gammatester

Edith nicht gesehen?