[Vlastelin Delphi]

Скажите пожалуйста,как можно сохранить текст с компонента TRichEdit, но так чтобы он сохранялся и в форматированный текст - rtf и в txt - простой текст(plain text). Я конечно понял что надо поставить у TRichEdit PlainText:=true чтобы он сохранил текст в txt, но он сохранит текст только в txt(простой текст), а в rtf(форматированный текст) не сохранит. Как быть???

[4kusNick]

Сначала сохраняй в txt, а затем в rtf, между сохранениями поменяй TRichEdit PlainText на противоположный =)

[Vlastelin Delphi]

Нееееет 4kusNick, так дело не пойдёт, надо чтобы пользователь мог сохранять и в txt и rtf (без всяких так переключений PlainText у RichEdit)

[alexan0308]

дык программа же будеть переключать ))

[Black Raider]

Сообщение от Vlastelin Delphi

Нееееет 4kusNick, так дело не пойдёт, надо чтобы пользователь мог сохранять и в txt и rtf (без всяких так переключений PlainText у RichEdit)

сомневаюсь что так возможно без переключения.
да и сообственно в чем проблема то, с переключением?

[dr. F.I.N.]

Код:

procedure SaveToTXTandRTF(aRichEdit: TRichEdit; aFileName: String);
const
  MyExt: array [Boolean] of String = ('.txt', '.rtf');
var
  tmpRE: TRichEdit;
begin
  tmpRE := TRichEdit.Create(nil);
  tmpRE.Assign(aRichEdit);
  tmpRE.Lines.SaveToFile(ChangeFileExt(aFileName, MyExt[tmpRE.PlainText]));
  tmpRE.PlainText := not tmpRE.PlainText;
  tmpRE.Lines.SaveToFile(ChangeFileExt(aFileName, MyExt[tmpRE.PlainText]));
  tmpRE.Free;
end;