Name des Objektes herausbekommen

[ak1]

Danke schonmal für die Tips. Das ich es wohl über Umwege machen muss, dachte ich mir schon, kann es aber nicht glauben, dass man nicht den Namen des Objektes herausbekommt.

[shmia]

Zitat:

Zitat von ak1

vielleicht verstehen wir uns falsch was eine Klassenmethode ist. Ich habe eine Form (TForm) in der ich mehrere Objekte vom Typ Testklasse erzeuge. Wenn ich jetzt über diese Objekte eine Methode dieser Klasse aufrufe, dann will ich, wenn diese Methode aufgerufen wird, innerhalb dieser Methode herausbekommen, welches Objekt die Methode gerade aufruft. Bei den Methoden handelt es sich um eine procedure die nicht mit class deklariert wird (class procedure testmethode) sondern ganz "normal" mit "procedure testmethode...". Ich hatte diese Methode vorher fälchlicherweise als Klassenmethode bezeichnet.

Jupp, eine Klassenmethode ist im Prinzip eine ganz "gewöhnliche Funktion/Procedure",
da keine Information über das Objekt (über den versteckten Self-Pointer) hereinkommt, noch kann
man das Objekt in irgendeiner Weise beeinflussen.
Du möchtest allerdings eine "normale Methode" aufrufen.

Für deine Fragestellung gibt es nun verschiedene Ansätze:
- Basisklasse mit Property Name:string erstellen und deine Klasse(n) davon ableiten.

Delphi-Quellcode:

TNamedObject = class(TPersistent)
private
   FName:String;
public
   property Name:String read FName write FName;
end;

- Zeigervergleich (Nachteil: begrenzt auf global erzeugte Objekte)

Delphi-Quellcode:

procedure TMeineKlasse.TestMethode;
begin
   if self=ObjektA then
      // Mach was für A
   else if Self=ObjektB then
     // Mach was für B
   else
      ;  // alle übrigen Objekte
end;

- virtuelle Methoden
siehe: virtuelle, dynamische und abstrakte Methoden
Mit virtuellen Methoden und Vererbung lässt sich viel machen.
Du brauchst wahrscheinlich mehrere Objekte, die aus mehreren Klassen erzeugt wurden
und somit verschieden reagieren (anstelle von mehreren Objekten erzeugt aus einer Klasse)

[ak1]

Danke für die Aufklärung, ich werde es dann mit einer Property machen.

Gruß

[maximov]

Noch eine ergänzung:

Delphi-Quellcode:

TNamedObject = class(TPersistent) 
private 
   FName:String; 
public 
   constructor Create(const aName:string);
   property Name:String read FName write FName; 
end;
...
constructor TNamedObject.Create(const aName:string);
begin
  fName := aName;
end;

Dann kannst du es leichter bei der erzeugung bennenen:

Delphi-Quellcode:

objekt1 :=TTestklasse.create('Hello1'); 
objekt2 :=TTestklasse.create('Foo2'); 
objekt3 :=TTestklasse.create('Bar3');

:wink: