🚀 go-pugleaf

Prosze  o pomoc - problem ten nie daj mnie spa� po nocach :))

Czemu to jest �le 


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, Tabs, ToolWin, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ToolBar1: TToolBar;
    TabSet1: TTabSet;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure TabSet1Change(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
     Strony : TStringList;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
     if TabSet1.Tabs.Count = 0 then
      begin
       Strony.Add('');
       TabSet1.Tabs.Add('Nowy');
       TabSet1.TabIndex := 0;
      end
     else
      begin
       Strony[TabSet1.TabIndex] := Memo1.Text;
       Strony.Add('');
       TabSet1.Tabs.Add('Nowy');
       TabSet1.TabIndex := TabSet1.Tabs.Count -1 ;
      end;
end;

procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
Strony[TabSet1.TabIndex] := Memo1.Text; 
		<-------------------------- tu jest blad;
Memo1.Text := Strony[NewTab];


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     Strony := TStringList.Create;
     SpeedButton1Click(Sender);
end;

end.

Z gory dziekuje za pomoc 
Pozdrawiam Daniel Gogolewski