Zdravvstvuyte!
Am uitat cum să salvez conținutul RichEdit într-un fișier în format text
De asemenea, am uitat o zi, dar m-am uitat în ajutor și am amintit.
O dată am uitat cum să pornesc monitorul și o săptămână întreagă nu a văzut ce scrie codul :))))))))))))
Sunt răi. Am suferit odată două lucruri din această zi până când am fost îndemnat.
RichEdit.PlainText: = Adevărat;
Iată un exemplu simplu, scris pentru Memo, dar pentru Rich. de asemenea, va coborî. Înlocuiți Memo cu RichEdit
Citirea și scrierea TMemo
Citirea unui fișier (să o numim "probă")
procedura TForm1.Button1Click (expeditor: TObject);
var
f: textfile;
fname: șir [80];
buf: șir [80];
începe
fname: = "C: \ proba.txt";
aloca fișierul (f, fname);
resetați (f);
dacă te uiți <> 0 atunci
începe
messagedlg ("Atenție: fișierul nu a fost găsit!" + fname, mterror, [mbok], 0);
ieșire;
se încheie;
în timp ce nu eof (f) face
începe
readln (f, buf);
memo1.Lines.Add (buf);
se încheie;
fișierul closet (f);
se încheie;
Scrierea într-un fișier (să o numim "proba1")
procedura TForm1.Button2Click (expeditor: TObject);
var
f: textfile;
fname: șir [80];
i: întreg;
începe
fname: = "C: \ proba1.txt";
aloca fișierul (f, fname);
rescrie (f);
pentru i: = 0 la memo1.Lines.Count do
scriteln (f, memo1.Lines [i]);
fișierul closet (f);
messagedlg ("Scris cu succes în" + fname. mtinformation, [mbok], 0);
se încheie;
Sper că am ajutat. Dacă nu există fluierul pe săpun, voi șterge cu siguranță textul sursă.
Da, nu tortura incearca sa traduci in engleza, am un SaveToFile
RichEdit-> Linii-> SaveToFile () - în formatul .rtf
și am odnoshdy zobyl hde zbura mea și în toaletă 2 zile nu a mers.
Iată o astfel de poveste
Trimiteți-le prietenilor: