arra of [klasse] -> andere unit zugreifen;

**Mokus**

Delphi-Quellcode:

			...

  public

    s_name: string;

  Type

    arrofad = array of TForm3;

....

markieren

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.

zusammenfalten · markieren

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 ?

arra of [klasse] -> andere unit zugreifen;

arra of [klasse] -> andere unit zugreifen;

Forumregeln