[AlexandrV]

Есть компонент TabControl а на нем рич
Размер максимальных странниц = 100 тоесть размер массива = 100

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

с типом разобрался вот массив

Код:

DynamicRichEditPage:Array[1..100] of TStrings;

а вот код сохранения текста рича в массив

Код:

procedure TForm1.TabControl1Change(Sender: TObject);
begin
  DynamicRichEditPage[Form1.TabControl1.TabIndex-1]:=Form1.RichEdit1.Lines;
end;

Но как его обратно вернуть

вот код для создания новых странниц

Код:

Procedure Change_And_Click;
var hjd0,hjd1,hjd2:Integer;
begin
  //Проверяем не равен ли Value меньше чем MinValue
  If (Length(Form1.SpinEdit1.Text)>0) and (Form1.SpinEdit1.Value < Form1.SpinEdit1.MinValue) then Form1.SpinEdit1.Value:=Form1.SpinEdit1.MinValue;
  //Показываем занятый размер на ProgressBar'е
  If Length(Form1.SpinEdit1.Text) > 0 then begin
    hjd0:=Form1.SpinEdit1.Value;
    hjd1:=Form1.SpinEdit1.MaxValue;
    hjd2:=(hjd0*100) div hjd1;
    Form1.PRGB1.Progress:=HJD2;
  end;
  //Создаем новый Tab
  Form1.TabControl1.Tabs.Add(Inttostr(Form1.SpinEdit1.Value)+' '+DynamicLang[51]);
  If Form1.TabControl1.Tabs.Count > form1.SpinEdit1.Value then begin
    repeat
      Form1.TabControl1.Tabs.Delete(Form1.TabControl1.Tabs.Count-1);
    Until Form1.TabControl1.Tabs.Count = Form1.SpinEdit1.Value;
  end;
end;

Происходит он при событии SpinEdit