savedialog Datentyp

[Satty67]

try dateispeichern except dateiErstellen; dateiSpeichern;

ist das nicht besser?

Delphi-Quellcode:

procedure TForm1.dateiSpeichern(datei : String);
begin
  AssignFile(datei, verz);
  {$I-}
  if FileExits(datei) then
    reset(datei)
  else
    rewrite(datei);
  {$I-}
  if IOResult = 0 then
    write(datei,tw)
  else raise // Eigene oder Standard Exception
  CloseFile(datei);
end;