VPF::Сохранение из RichEdit в файл - Форум программистов

mr.Anderson

Дата 6.9.2005, 17:15 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128

Я сохранил текст из TRichEdit в файл вот так:

Код


if SaveDialog.Execute then
 RichEdit.Lines.SaveToFile("UNTITLED.TXT");

В RichEdit набрал примерно такой текст:

Цитата

procedure Check(FileN: String);
begin
if FileN:='UNTITLED.TXT' then MessageBox(handle,'Такой файл есть!','Ошибка!',MB_OK);
end;

А в файле получил следующее:

Цитата

{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fnil\fcharset0 Courier New;}{\f1\fnil\fcharset204{\*\fname Courier New;}Courier New CYR;}{\f2\fnil Courier New;}}
\viewkind4\uc1\pard\lang1033\f0\fs22 procedure Check(FileN: String);
\par begin
\par if FileN:='UNTITLED.TXT' then MessageBox(handle,'\lang1049\f1\'ce\'f8\'e8\'e1\'ea\'e0!\lang1033\f0 ','\lang1049\f1\'ce\'f8\'e8\'e1\'ea\'e0\lang1033\f0 !',MB_OK);
\par end;\lang1049\f2
\par }

Что это такое и как это поправить?

--------------------

z-END

Дата 6.9.2005, 17:20 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

Цитата(sim7 @ 6.9.2005, 18:15)

Что это такое и как это поправить?

это RTF формат файла... PalinText := true и таких проблем небудет, но тогда все форматирование пропадет smile

а еще проще смени расширение с txt на rtf и будет тебе счастье smile

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »