Instanz einer Klasse übergeben

[khh]

hallo zusammen,
ich habe ein form in dem von 2 verschiedenen Klassen je eine instanz( oder auch mehrere) erstellt wird.
Ist es möglich die komplette instanz der Klasse 1 mit ihren werten an die instanz der Klasse2 zu übergeben um diese dort zu verarbeiten?

Danke gruss KH

[quendolineDD]

Sicher. Das geht ganz einfach, indem du in den Parametern der Funktion/Prozedur einfach den Typen als die zu übergebende Klasse festlegst.
Beispielquelltext:

Delphi-Quellcode:

  TKlasse1 = Class(TObject)
  private
    FName : String[20];
  public
    constructor create;
    destructor destroy;
  end;

  TKlasse2 = Class(TObject)
  private
    FKlassName : String[20];
  public
    procedure MachWas(aKlasse1 : TKlasse1);
    constructor create;
    destructor destroy;
  end;

{...}

procedure TKlasse2.MachWas(aKlasse1: TKlasse1);
begin
  FKlassName := aKlasse1.FName;
end;

In deinem Formular sieht das dann so aus:

Delphi-Quellcode:

var
  Klasse1 : TKlasse1;
  Klasse2 : TKlasse2;
begin
  Klasse1 := TKlasse1.create;
  Klasse2 := TKlasse2.create;
  Klasse2.MachWas(Klasse1);
end;

[khh]

ich danke dir.


Gruss KHH