Text in Datei speichern

[Sir Rufo]

Zitat von omata:

Delphi-Quellcode:

AssignFile(f, 'C:\test.txt');
try 
  if FileExists('C:\test.txt') then
    Append(f)
  else
    Rewrite(f);
  Writeln(f, report);
finally
  CloseFile(f);
end;

Das try ist zu früh

Delphi-Quellcode:

AssignFile(f, 'C:\test.txt');
// try <-- hier zu früh
  if FileExists('C:\test.txt') then
    Append(f)
  else
    Rewrite(f);
try // <-- da muss es hin
  Writeln(f, report);
finally
  CloseFile(f);
end;

[delphinia]

Zitat von Sir Rufo:

Zitat von omata:

Delphi-Quellcode:

AssignFile(f, 'C:\test.txt');
try 
  if FileExists('C:\test.txt') then
    Append(f)
  else
    Rewrite(f);
  Writeln(f, report);
finally
  CloseFile(f);
end;

Das try ist zu früh

Delphi-Quellcode:

AssignFile(f, 'C:\test.txt');
// try <-- hier zu früh
  if FileExists('C:\test.txt') then
    Append(f)
  else
    Rewrite(f);
try // <-- da muss es hin
  Writeln(f, report);
finally
  CloseFile(f);
end;

was ist daran schlimm wenn es zu "früh" ist?
arbeite seit neustem viel damit und daher kommt mir das gerade gelegen zu fragen...

[Sir Rufo]

CloseFile würde immer ausgeführt werden.
Wird aber vorher kein Append oder Reset oder Rewrite ausgeführt, dann rummst es.

Das ist genau so wie man das nicht macht:

Delphi-Quellcode:

try
  Foo := TFoo.Create;
  ...
finally
  Foo.Free;
end;

so ist es richtig

Delphi-Quellcode:

Foo := TFoo.Create;
try
  ...
finally
  Foo.Free;
end;

Stell dir jetzt vor was passiert, wenn bei der Erzeugung von Foo eine Exception auftritt.
Im ersten Beispiel bekommst du noch eine Exception hintendran, weil Foo.Free ausgeführt wird

[delphinia]

Vielen Dank!
Wieder etwas gelernt