Помогите не выходит сохранить данные написаные в RichEdit в старом добром DOS формате(в Паскале таких проблем не было). Delphi записывает ко всему прочему всякую муть.
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;
В этой "всякой мути" 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 ;)