PageControl

[Volt]

Помогите сохранить текст в RichEdite. вот исходник

[Ntlegend]

а чем не устраивает RichEdit1.Lines.SaveToFile('имя_фай ла'); и RichEdit1.Lines.LoadFromFile('имя_ф айла');??

[Volt]

Проблема решена всем спосибо.

[Скандербег]

  with PageControl1 do
    if ActivePage.ControlCount > 0 then
    begin
//      if ActivePage.Controls[0] is TSynEdit then //а TSynEdit здесь причем?
      if ActivePage.Controls[0] is TRichEdit then
      begin
        Result := (TRichEdit(ActivePage.Controls[0]));
      end else
        Result := FPrevRichEdit;
    end;

Исправленное работает - спасает содержимое RichEdit.