Delphi-Quellcode:
...
public
s_name: string;
Type
arrofad = array of TForm3;
....
Delphi-Quellcode:
procedure TForm3.Button1Click(Sender: TObject);
var
arofad: arrofad;
begin
setlength(arofad, 1);
arofad[High(arofad)] := TForm3.create(self);
arofad[0].s_name := e_name.Text;
showmessage(arofad[0)].s_name);
close;
end;
so, möchte nun auf das arrofad zugreifen von einer anderen Klasse &
Unit drauf zugreifen.
Delphi-Quellcode:
procedure TForm4.Button1Click(Sender: TObject);
var
book: TForm3;
aroffad: TForm3.arrofad;
begin
book := TForm3.Create(self);
aroffad := book.arrofad[high(book.arrofad)].Create(self); // weiß das ich durchb das createn eine neue erstelle, war aber mit einer // meiner letzten versucche. weiß echt nicht mehr weiter :<
Memo1.Text := aroffad[0].s_name;
end;
end.
gibt es hier eine einfache Möglichkeit ?