Delphi-Quellcode:
// ..
assignfile(x,'C:\stupla.stp'); // im Wurzelverzeichnis von C ??????????????
{$I-} rewrite(x); {$I+}
if IOresult<>0 then ShowMessage('Fehler')
else begin
writeln(x,Edit1.Text);
writeln(x,Edit2.Text);
//..
closefile(x)
end;
//..
Delphi-Quellcode:
// ..
assignfile(x,'C:\stupla.stp'); // im Wurzelverzeichnis von C ??????????????
{$I-} reset(x); {$I+}
if IOresult<>0 then ShowMessage('Fehler')
else begin
readln(x,Edit1.Text);
readln(x,Edit2.Text);
//..
closefile(x)
end;
//..
Vielleicht so?
(Und benutze bitte eine etwas verständlichere Sprache)
/edit: die Null fehlte bei IOresult