Wieso funktioniert der folgende Code nicht ?
Erst wenn ich das Programm zum zweiten Mal starte und die Datei 'Test.txt' schon existiert,
gibt es keine
Exception !
Wenn ich die Datei 'Test.txt' lösche und das Programm starte kommt diese
Meldung:
Exception .......'E/A-Fehler 32'
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var f:Textfile;
begin
assignfile(f,'Test.txt');
rewrite(f);
writeln(f,'blablabla');
closefile(f);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if not fileexists ('Test.txt') then
filecreate('Test.txt');
end;