Richedit (mentés fájlba)

Zdravvstvuyte!
Elfelejtettem, hogyan menthetem el a RichEdit tartalmát szöveges formátumú fájlra

Egy nap is elfelejtettem, de a segítségre tekintettem, és eszembe jutott.

Egyszer elfelejtettem bekapcsolni a monitort, és egy egész héten nem láttam milyen kódot írtam :))))))))))))

Gonoszak. Egyszer két dolgot szenvedtem ettől a naptól egészen addig, amíg megkérdezték.

RichEdit.PlainText: = Igaz;

Egy egyszerű példa a Memo-ra írt, de Rich számára. is le fog jönni. Cserélje fel a jegyzetet a RichEdit segítségével


A TMemo olvasása és írása


Fájl olvasása (hívjuk "proba" -nak)


eljárás TForm1.Button1Kattintson (Feladó: TObject);
var
f: szövegfájl;
fname: string [80];
buf: string [80];
kezdődik
fname: = "C: \ proba.txt";
assignfile (f, fname);

reset (f);

ha mégis <> 0 majd
kezdődik
messagedlg ("Figyelmeztetés: A fájl nem található!" + fname, mterror, [mbok], 0);
exit;
végén;
míg az eof (f) nem
kezdődik
readln (f, buf);
memo1.Lines.Add (buf);
végén;
closefile (f);
végén;

Fájlba írása (nevezzük "proba1" -nek)


eljárás TForm1.Button2Click (Sender: TObject);
var
f: szövegfájl;
fname: string [80];
i: egész szám;
kezdődik
fname: = "C: \ proba1.txt";
assignfile (f, fname);
átírni (f);
i: = 0 a memo1.Lines.Count kell
writeln (f, memo1.Lines [i]);
closefile (f);
messagedlg ("sikeresen beírva" + fname. mtinformation, [mbok], 0);
végén;


Remélem, segítettem. Ha a szappanon nincs síp, akkor biztosan meg fogja ásni a forrást.

Igen, ne kínozzam, próbálj angolul lefordítani, van egy SaveToFile

RichEdit-> Lines-> SaveToFile () - az .rtf formátumban

és én viszonyhdy zobyl hde a légy és a WC-ben 2 nap nem ment.
Itt van egy ilyen történet