IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Как сделать чтоб RichEdit сохранял в DOS формате?
KasyaAR
сообщение 19.06.2003 18:27
Сообщение #1


Гость






Помогите не выходит сохранить данные написаные в RichEdit в старом добром DOS формате(в Паскале таких проблем не было). Delphi записывает ко всему прочему всякую муть.
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов
mj
сообщение 20.06.2003 6:37
Сообщение #2


Adminь
****

Группа: Администраторы
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


procedure TForm1.*(Sender: TObject);
var
 s: String;
 l: Integer;
 f: TStream;
begin
 s := RichEdit1.Lines.Text; // Получаем текст
 l := Length(s); // Запоминаем длинну текста
 if l>0 then // Конвертируем в Dos кодировку
   CharToOemBuff(S[1], S[1], l);

 // Создаём файл и объект-поток для записи
 f := TFileStream.Create('lines.txt', fmCreate);
 f.Write(S[1], l); // Записываем данные в поток (файл)
 f.Free; // Закрываем файл и удаляем объект-поток
end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 11.07.2025 5:27
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"