Textdatei erstellen mit Firemonkey

[Matho]

Hallo,

Ich hätte ein Problem. Ich hoffe mir kann jemand weiterhelfen.
Ich möchte die Eingabe eines Editors in einer Textdatei speichern (wobei beim ausführen eine Textdatei erstellt werden soll, wenn diese nicht vorhanden ist), jedoch bekomme ich immer die Fehlermeldung "Datei nicht gefunden". Ich denke es liegt an einer fehlenden Schreibberechtigung, leider weiß ich auch nicht wo ich die Textdatei sonst speichern kann. Den Code habe ich im Anhang hinterlegt.
Vielen Dank im Voraus. Anhang 53170

[himitsu]

Hart-codierte sind immer eine extrem schlechte Idee.

Darum gibt es auch einige Funktionen, welche einem einen bestimmten Systempfad nennen.
IOUtils.TPath.GetDocumentsPath oder Dergleichen


Eine fehlende Fehlerbehandlung (Ressourcenschutzblock aka Try-Except/Finally) ist auch keine gute Idee.


Die "alten" Dateifunktionen könnte man nehmen, aber muß man nicht.
TStringList
IOUtils.TFile.WriteAllText bzw. WriteAllLines
TFileStream
TStringStream
...

[TurboMagic]

Hallo,

nimm nicht rewrite und assignfile, die sind sehr altbacken.
Codieren auch keine Pfade auf diese Art. Nimm TPath.GetXXXXX Methoden (siehe auch die Hilfe dazu)
und TPath.Combine aus System.IOutils.

Beispiel für Himitsus TStringList Empfehlung:

Delphi-Quellcode:

var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Add(Edit1.Text);
    sl.SaveToFile(FileName); // hier mit TPath arbeiten...
  finally
    sl.Free;
  end;
end;

Grüße
TurboMagic