Скачать: CL | DM;

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)

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c