[AlexandrV]

Сообщение от Alegun

А что тогда мешает делать так
завести глобальную стрингу, например tmp: TStrings;
при уходе со вкладки

Код:

tmp:= Memo.Lines;

а при возвращении

Код:

Memo.Lines:= tmp;

А то что странниц число не предусмотренное и если использовать массив типа Tstrings то рано или позна программа зависнет

К томуже если у кого программа завснет нельзя будет вернуть текст тоесть он будет потерян а так если прога зависла лезем во временный файл и копируем от туда текст и вставляем вобычный блокнот. Так что быдло код не собирюсь делать а собираюсь использовать временный файл
Почемуто код созданя временного файла не работает

Код:

procedure TForm1.TabControl1Changing(Sender: TObject; var AllowChange: Boolean);
begin
  Form1.RichEdit1.Lines.SaveToFile(GetTempPath+'~'+IntToStr(Form1.TabControl1.TabIndex)+' СТР LРР.$$$');
  Form1.ListBox1.Items.Add('~'+IntToStr(Form1.TabControl1.TabIndex)+' СТР LРР.$$$' );
end;

Нужно также узнать местоположение курсора в риче и как это сделать. Мне сказали сделать так Находи значение lines , и местоположение курсора в строке

только я не понял все равно можете сказат как местоположение курсора чтобы потом при возврате на другую странницу курсор остался там где он был.