AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Textdatei erstellen mit Firemonkey

Ein Thema von Matho · begonnen am 19. Okt 2020 · letzter Beitrag vom 19. Okt 2020
Antwort Antwort
Matho

Registriert seit: 19. Okt 2020
1 Beiträge
 
#1

Textdatei erstellen mit Firemonkey

  Alt 19. Okt 2020, 20:50
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. code.jpg
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
37.054 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Textdatei erstellen mit Firemonkey

  Alt 19. Okt 2020, 21:19
Hart-codierte sind immer eine extrem schlechte Idee.

Darum gibt es auch einige Funktionen, welche einem einen bestimmten Systempfad nennen.
Delphi-Referenz durchsuchenIOUtils.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
Delphi-Referenz durchsuchenIOUtils.TFile.WriteAllText bzw. WriteAllLines
TFileStream
TStringStream
...
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
1.074 Beiträge
 
Delphi 10.3 Rio
 
#3

AW: Textdatei erstellen mit Firemonkey

  Alt 19. Okt 2020, 21:37
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
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2020 by Daniel R. Wolf