Name des Objektes herausbekommen

[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');