Как из RXRichEdit сохранить в RTF формате, все что у него лежит в Lines?
(гиперссылки, подсветку, центрирование и т.д.)

А у него нет свойства SaveToFile?

Есть конечно, но оно просто текст записывает, или если загрузить RTF то ее начальное состояние. Я допустим хочу изминения сделать, добавить гиперссылку.
вот код:

procedure TForm1.Button1Click(Sender: TObject);
begin
RXRICHEDIT1.Lines.LoadFromFile('K:\111\555.rtf');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
RxRichEdit1.SelAttributes.Link:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
RxRichEdit1.Lines.SaveToFile ('mmm.rtf');
end;

вобщем три кнопки 1 загрузка, потом выделяю текст - кнопка 2 делает его гиперссылкой, 3 записываю
файл ни чем не отличается от текущего!!!!
ПОМОГИТЕ СПЕЦИАЛИСТЫ!!!!

Ну помогите кто нибудь!!!
срочно надо!!!

Так ты по-моему используешь RichEdit от RxLib? Так? Там есть формат текста и формат потока - оба должны быть указаны как RTF - точно не помню названия свойств и констант - посмотри сам. Похоже что формат потоковых операций определен как для простого текста...

Вот делаю код:

Код

procedure TForm1.Button1Click(Sender: TObject); begin RXRICHEDIT1.Lines.LoadFromFile('K:\111\555.rtf'); end; procedure TForm1.Button2Click(Sender: TObject); begin RxRichEdit1.SelAttributes.Link:=true; end; procedure TForm1.Button3Click(Sender: TObject); begin RxRichEdit1.Lines.SaveToFile ('mmm.rtf'); end;

в самом файле 555.rtf у меня есть картинки , гиперссылки, форматирования
все прекрасно сохраняется, принажатии на 3 кнопку, но не сохраняется сделаная кнопкой 2 гиперссылка, как ее сохранить?

Код

procedure TForm1.Button1Click(Sender: TObject);  var t:TFileStream; begin  t:=TFileStream.create('c:\myfilename.txt', fmCreate or fmOpenWrite);  t.Size:=0;  RxRichEdit1.Lines.SaveToStream(t);  t.free; end;

Там вроде бы надо не через lines, а просто TRXRichEdit.SaveToFile(filename)

Цитата(Mikel @ 25.6.2002, 08:47)

Там вроде бы надо не через lines, а просто TRXRichEdit.SaveToFile(filename)

Дык я тоже думал что так, только вот нету его

Народ может чего я и не понимаю, но не работает код и все тут !!!!!

Код

procedure TForm1.Button1Click(Sender: TObject); begin RXRICHEDIT1.Lines.LoadFromFile('K:\111\555.rtf'); end; procedure TForm1.Button2Click(Sender: TObject); begin RxRichEdit1.SelAttributes.Link:=true; end; procedure TForm1.Button3Click(Sender: TObject); var t:TFileStream; begin t:=TFileStream.create('myfilename.rtf', fmCreate or fmOpenWrite); t.Size:=0; RxRichEdit1.Lines.SaveToStream(t); t.free; end;

открываю файл ну не сохраняет он гипперссылки!!!! ПОМОГИТЕ!!!!

И не будет. Этот код будет сохранять все параметры форматирования в RTF но не линки, потому что спецификация RTF не поддерживает линки, только расширения MS для формата RTF для MS Word. Тебе надо либо использовать HTML, либо самому в ручную формировать RTF

все ясно!!!
спасибо!!!