Zitat von
Thomas F:
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var f:Textfile;
begin
try
assignfile(f,'Test.txt');
rewrite(f);
writeln(f,'blablabla');
closefile(f);
except
closefile(f);
end;
end;
Das ist aber nicht sinnvoll, da CloseFile hier auf jeden Fall aufgerufen wird - und für sowas benutzt man i.d.R. try..finally:
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var
f: TextFile;
begin
try
AssignFile(f, 'Test.txt');
Rewrite(f);
WriteLn(f, 'blablabla');
finally
CloseFile(f);//das wird auf jeden Fall ausgeführt
end;
end;
Es gibt sicherlich sinnvolere Fehlerbehandlungen, aber mit diesen Routinen kenne ich mich nicht so gut aus
