Thema: Delphi Instanzen einer Klasse

Einzelnen Beitrag anzeigen

mickmack

Registriert seit: 24. Sep 2003
Ort: Hamburg
51 Beiträge
 
#3

Re: Instanzen einer Klasse

  Alt 7. Okt 2003, 15:35
Folgendes:
Delphi-Quellcode:
  TMyBeispiel = class
                 bespielString : String;
                 bespielIntetger: Integer;
                 function rechnen (beispielInteger:Integer): Integer;
                end;

  var test1, test2 : TMyBeispiel;

  procedure TFrmMain.FormCreate(Sender: TObject);
  begin
   test1:= TMYBeispiel.create;
   test2:= TMyBeispiel.create;
  end;
  
  //Diese Function, soll je nachdem von welcher Instanz sie aufgerufen wurde mit 2 oder 3
   multiplizieren
  function TMyBeispiel.rechnen(beispielInteger:Integer): Integer;
  begin
   //wenn von Instanz test1 aufgerufen dann multpliziere mit 2
   //sonst wenn von instanz test2 aufgerufen mit 3
  end;
Dieses Beispiel vereinfacht mein Problem sehr stark. Es stellt nur halt nur ein anschauliches Bespiel dar.

Zusammengefasst möchte ich gerne wissen, ob ich irgendwie aus den RTTI den Namen der aufrufenden Instanz auslesen kann.
Ansonsten würde mir nur einfallen der KLasse ein Attribut "Name" hinzuzufügen, und dieses über den constructor zu mit dem Namen der jeweiligen Instanz zu füllen.
Tu es oft - Bald bist du zu alt.
  Mit Zitat antworten Zitat