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;