String in Txt Datei speichern

[dedeur]

Hallo NG,

ich will in einem Edit Feld ein beliebigen Text schreiben und ihn per ButtonClick
in eine *.txt Datei speichern

hat jemand ne idee vorallem auf das Weg speichern bezogen

thanx

euer

dedeur

[citybreaker]

Öhm, mit ner Memo würde es so aussehen.

Memo1.Lines.SaveToFile('C:\1.txt'); Ansonsten in eine Ini File speichern
dazu siehe http://www.delphi-source.de

[Christian Seehase]

Moin Dedeur,

such' doch hier mal nach TFileStream
Da müsstest Du einige Beispiele dafür finden eine Zeile in einer Datei zu speichern, da oft ein String als Buffer verwendet wird.

[Michael Leyhe]

HI

Delphi-Quellcode:

var
datei :textfile;
text :ansistring;

procedure
begin
...
Assign(Datei,Pfad);
Rewrite(Datei);
Writeln(Datei, text);
close(Datei);    
end

Damit müsste es gehen.

[Luckie]

Nur bitte mit CloseFile die Datei schließen.

[Christian Seehase]

Moin Zusammen,

und wo wir schon dabei sind:
Der Resourcenschutzblock fehlt auch

[Michael Leyhe]

Ist ja gut der code scheint zwar nicht ganz sauber zu sein aber er funktioniert bei mir und das ist die hauptsache
Den hab ich von irgendwoher, selber würde ich auf sowas gar nicht kommen, hätte sonst auch sowas gesagt wie citybreaker das man den in eine Listbox oder Memo packen kann und dan abspeichern.

[Luckie]

Zitat von Michael Leyhe:

Ist ja gut der code scheint zwar nicht ganz sauber zu sein aber er funktioniert bei mir und das ist die hauptsache

aber das ist nur so lange gut so, wie das Programm deinen Rechner nicht verläßt.

[dedeur]

Hallo NG,

also ich speicher wie folgt mein text

Code:

Memo1.Lines.SaveToFile('C:\test.txt');

ich möchte nun bei einem erneutem schreiben den Inhalt nicht überschreiben(was bis jetzt passiert)sondern den neuen text Hinten dran hängen.

hat jemand n tipp

[himitsu]

Nimm das Beispiel von Michael Leyhe & Luckie und schau in der OH nach "Append (Prozedur)".