Zdravvstvuyte!
Забравих как да се пазят съдържанието RichEdit към файл в текстов формат

Аз също веднъж забравил, но в HELP погледна и си спомни.

Веднъж забравих как да включите монитора, а цялата седмица не се види, че пиша :)) за кода))))))))))

Злото са те. Аз отново с тези два дни пострадаха докато не получите подкана.

RichEdit.PlainText: = True;

Ето един прост пример, е написано на бележка, но и за богатите. също слезе. Сменете Memo на RichEdit

Четене и писане TMemo

Четене на файл (нека го наречем "Proba")

процедура TForm1.Button1Click (Sender: TObject);
Var
F: текстов файл;
fname: низ [80];
Buf: низ [80];
започвам
fname: = "C: \ proba.txt";
assignfile (е, fname);

нулиране (е);

ако ioresult <> 0 след това
започвам
messagedlg ( "! Warning файла не е намерен!" + fname, mterror [mbok], 0);
изход;
приключи;
докато не EOF (е) направи
започвам
readln (е, Buf);
memo1.Lines.Add (Buf);
приключи;
closefile (е);
приключи;

В писмото си до даден файл (нека го наречем "proba1")

процедура TForm1.Button2Click (Sender: TObject);
Var
F: текстов файл;
fname: низ [80];
I: цяло число;
започвам
fname: = "C: \ proba1.txt";
assignfile (е, fname);
презапис (е);
защото: = 0 до memo1.Lines.Count направи
writeln (F, memo1.Lines [Ь]);
closefile (е);
messagedlg ( "успешно записано в" + fname mtinformation [mbok], 0.);
приключи;

Надявам се да помогна. Ако няма свирка на сапун, изкопае изходния код за сигурност.

Да, не страдат се опита да преведе на английски, имам SaveToFile

RichEdit-> Lines-> SaveToFile () - във формат .rtf

Аз odnashdy zobyl HDE мухата ми и тоалетната не отиде на 2 дни.
Ето една история тук