TStringList

[rayman]

Ich will ja nicht den Typ TMyList nutzen. Sondern die in "Unit 2" deklarierte Liste. Etwa so:

Delphi-Quellcode:

Unit UList

interface
...
type
  TForm2=class(TForm)
  ...
  end;
...

var
  Liste: TstringList;
  Form2: TForm2;

implementation

TForm2.FormCreate(Sender: TObject);
begin
Liste:=TStringList.Create;
end;

-------------------------------------------
unit UMain

interface

uses ..., UList;

type:
  TForm1=class(TForm)
  ...
  end;
...
var Form1:TForm1;
...
implementation

TForm1.FormCreate(Sender:TObject);
begin
Form2:=TForm2.Create(Self) // und hier sollte auch die Liste erzeugt werden
end;

TForm1.Button1Click(Sender:TObject);
begin
Liste.Add('Text');
end;

TForm1.Button2Click(Sender:TObject);
begin
ShowMessage('Letzter Listeneintrag:'+Liste[Liste.Count-1));
end;