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

> ВНИМАНИЕ!

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

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
Closed Topic Открыть новую тему 
> Как сделать чтоб RichEdit сохранял в DOS формате?
сообщение
Сообщение #1


Гость






Помогите не выходит сохранить данные написаные в RichEdit в старом добром DOS формате(в Паскале таких проблем не было). Delphi записывает ко всему прочему всякую муть.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 25

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


В этой "всякой мути"  RichEdit'a хранятся настройки шрифта, которым он написан. А чтобы сохранять файлы в DOS формате используй ТМемо.
Ну а если тебе всё таки очень хочется писать в RichEdit'е, а сохранять в DOS формате (не вижу в этом ни одного намёка на здравый смысл), то проще всего создать на форма TMemo c параметром Visible=false, и при сохранении копировать содержимое из RichEdit'a в TMemo, а потом сохранять в файл
procedure TForm1.NSaveClick(Sender:TObject);
begin
Memo1.Lines:=RichEdit1.Lines;
Memo.Lines.SaveToFile('file.txt');
end;


И нет мороки! ;) ;D
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 13

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


Цитата
не вижу в этом ни одного намёка на здравый смысл

А как же подсветка синтаксиса так нами любимая?
Спасибо за подсказку, вопрос исчерпан тему можно закрыть.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 25

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


Пажалуйста! ;D ;)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 1.08.2021 6:01
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name