Text in Datei speichern

[delphinia]

Hallo ihr Lieben


ich möchte beliebig langen Text in einer TXT Files speichern die nicht vorhanden ist....

Delphi-Quellcode:

{$I-}
  AssignFile(f, 'C:\test.txt');
  Append(f);
  Writeln(f, report);
  Flush(f);
  CloseFile(f);
{$I+}

so wollte ich tun doch das gibt immer Feheleermeldung und es wird keine files geschrieben.

Gibt es eine bessere Lösung oder wo ist mein fehler was muss ich tun?

[Sir Rufo]

Ein Blick in die Hilfe verrät dir warum Append

[rollstuhlfahrer]

Du kannst keine Datei mit Append89 erstellen. Prüfe zuerst mittels FileExists(), ob diese Datei existiert und dann verwende Rewrite() zum erstmaligen erstellen der Datei.

Ansonsten wäre es toll gewesen, wenn du zusätzlich zu dem Problem auch den Fehlermeldungstext mitgeliefert hättest. Die meisten Anfragen hier haben mit irgendwelchen Problemen und Geht-Nichts zu tun. Die Fehlermeldung ist nämlich in den meisten Fällen sogar aussagekräftig, ala "Datei existiert nicht".

Bernhard

Edit: Da war einer schneller.

Edit2: Ich hoffe doch sehr, dass das "C:\test.txt" auch wirklich nur ausschließlich zu Testzwecken oder um den wirklichen Pfad zu verheimlichen verwendet wird. Unter Win >= Vista bekommst du nämlich dann kräftig Probleme mit der hoffentlich aktivierten UAC

[Luckie]

Zitat von delphinia:

so wollte ich tun doch das gibt immer Feheleermeldung

Für Hellsehen bist du ihr im falschem Forum.

Warum keine StringList oder Streams oder Ini-Dateien?

[delphinia]

danke soweit...

INI geht nicht das es sich um HTML code handelt

Stream komme ich nicht mit klar...
Suchte was einfaches wie in PHP auch um den fertigen grossen Text zu speichern...

[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;

[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