RichEdit (сохранение в файл)

← →
Фагот (2003-03-05 17:14) [0]

Здраввствуйте!
Я забыл как сохранить содержимое RichEdit в файл в текстовом формате

← →
Dms (2003-03-05 17:20) [1]

Я тоже однажды забыл, но в хелп глянул и вспомнил.

← →
ёпрст (2003-03-05 17:27) [2]

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

← →
Smithson (2003-03-05 17:47) [3]

Злые они. Я как-то раз с этим дня два мучился, пока не подсказали.
RichEdit.PlainText := True;

← →
Intell (2003-03-05 19:39) [4]

Вот простенький пример, написан для 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);
{$i-}
reset(f);
{$i+}
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;

Надеюсь помог. Если нет свистни по мылу, раскопаю исходный текст наверняка.

sergein@nojabrsk.ru

← →
Anatoly Podgoretsky (2003-03-05 20:01) [5]

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

← →
Strumpf (2003-03-05 21:20) [6]

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

← →
БИЛЬБАСУМКИН (2003-03-05 21:26) [7]

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

← →
Palladin (2003-03-05 21:34) [8]

> Фагот (05.03.03 17:14)

а в каком формате помнишь? :))

RichEdit (сохранение в файл) Найти похожие ветки