Richedit (збереження в файл)

Здраввствуйте!
Я забув як зберегти вміст RichEdit в файл в текстовому форматі

Я теж одного разу забув, але в хелп глянув і згадав.

Я одного разу забув, як монітор включити і цілий тиждень не бачив що за код набираю :))))))))))))

Злі вони. Я якось раз з цим дня два мучився, поки не підказали.

RichEdit.PlainText: = True;

Ось простенький приклад, написаний для Memo, але для Rich. теж зійде. Заміни Memo на RichEdit

Читання і запис TMemo

Читання файлу (назвемо його "proba")

procedure TForm1.Button1Click (Sender: TObject);
var
f: textfile;
fname: string [80];
buf: string [80];
begin
fname: = "C: \ proba.txt";
assignfile (f, fname);

reset (f);

if ioresult <> 0 then
begin
messagedlg ( "Увага! Файл не знайдено!" + fname, mterror, [mbok], 0);
exit;
end;
while not eof (f) do
begin
readln (f, buf);
memo1.Lines.Add (buf);
end;
closefile (f);
end;

Запис в файл (назвемо його "proba1")

procedure TForm1.Button2Click (Sender: TObject);
var
f: textfile;
fname: string [80];
i: integer;
begin
fname: = "C: \ proba1.txt";
assignfile (f, fname);
rewrite (f);
for i: = 0 to memo1.Lines.Count do
writeln (f, memo1.Lines [i]);
closefile (f);
messagedlg ( "Успішно записано в" + fname. mtinformation, [mbok], 0);
end;

Сподіваюся допоміг. Якщо немає свистни по милу, розкопали вихідний текст напевно.

Та не мучся спробуй перекласти англійською, у мене вийшло SaveToFile

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

а я однашди зобил хде моя ширінька і в туалет 2 дня не ходив.
Ось така от історія