Über dynamischen Namen auf eine Instanz zugreifen

[skyphab]

Hallo zusammen!

Gibt es eine Möglichkeit, Den Namen eines Objektes dynamisch zusammenzusetzen? Im Grunde genommen suche ich eine Funktion wie FindComponent, nur für Objekte.
Ich habe gewühlt, aber nichts gefunden obwohl ich mir nicht vorstellen kann, dass es sowas nicht gibt
FindComponent scheint etwas anderes zu sein?

Gibt's sowas?

[shmia]

Zitat von skyphab:

Gibt es eine Möglichkeit, Den Namen eines Objektes dynamisch zusammenzusetzen? Im Grunde genommen suche ich eine Funktion wie FindComponent, nur für Objekte.
Ich habe gewühlt, aber nichts gefunden obwohl ich mir nicht vorstellen kann, dass es sowas nicht gibt
FindComponent scheint etwas anderes zu sein?

Erst aber der Klasse TComponent (und alle abgeleiteten Klassen) gibt es das Property Name
und erst dann macht FindComponent einen Sinn.
Sag mal was du eigentlich vorhast; häufig kann hier ein Design Pattern (z.B. Observer-Pattern)
die Lösung liefern.

[skyphab]

Zitat von shmia:

Zitat von skyphab:

Gibt es eine Möglichkeit, Den Namen eines Objektes dynamisch zusammenzusetzen? Im Grunde genommen suche ich eine Funktion wie FindComponent, nur für Objekte.
Ich habe gewühlt, aber nichts gefunden obwohl ich mir nicht vorstellen kann, dass es sowas nicht gibt
FindComponent scheint etwas anderes zu sein?

Erst aber der Klasse TComponent (und alle abgeleiteten Klassen) gibt es das Property Name
und erst dann macht FindComponent einen Sinn.
Sag mal was du eigentlich vorhast; häufig kann hier ein Design Pattern (z.B. Observer-Pattern)
die Lösung liefern.

FindComponent war nur ein Beispiel, für das was ich suche
Ich will einen Namen als String übergeben und dann mit dem Objekt arbeiten können. Eben wie mit FindComponent.

Z.B. Objekt1, Objekt2, Objekt3: TKlasse

for i := 1 to length(MeinArray) do
(FindeMeinObjekt(MeinArray[i].Name) as TKlasse).Ausführen(MeinArray[i].Nummer);

Sowas in der Art, ich hoffe das ist klarer jetzt. Ich habe die Namen der Objekte und will auf sie zugreifen. Aber wenn ich Objekte zur Laufzeit erstelle (die Namen dynamisch vergebe), brauche ich doch auch etwas, mit dem ich wieder darauf zugreifen kann. Oder geht das nur mit einem Array vom Objekttyp?

[Tryer]

Das FindComponent für die TComponents kann aus einem simplen Grund funkionieren - alle Komponenten stehen in der Componentenliste ihres Owners. FindComponent sucht also in der Liste einfach nach einer Componente mit dem passenden Namen und gibt diese zurück.

Etwas ähnliches könnte man sich für Objekte aufbauen, indem man einfach jedes neue Objekt in eine TList einträgt die man dann später durchsuchen kann.
Solange der Constructor immer gleich aussieht liesse sich das so realisieren:

Delphi-Quellcode:

type 
  TMyObjectClass = class of TObject;
var
  ObjectList: TList;
(..)
function CreateAndRegister(ObjClass: TMyObjectClass): TObject;
begin
  if not Assigned(ObjectList) then
    ObjectList := TList.Create;
  Result := ObjClass.Create;
  ObjectList.Add(Result);
end;

procedure FreeAndNilAndForget(Object: TObject);
var
  Index: Integer;
begin
  if Object <> nil then 
  begin
    Index := ObjectList.IndexOf(Object);
    if Index > -1 then 
      ObjectList.Delete(Index);
    Object.Free;
    Object := nil;
  end;
end;

Alternativ dazu erweiterst Du den Constructor/Destructor des Objects so das es sich selber ein-und austrägt.

Wie bereits gesagt wurde: Erst wenn man eine gemeinsame Eigenschaft wie z.B. den nmen bei TComponent hat macht diese Liste Sinn, sonst fehlt natürlich das Suchkriterium.

MfG,
Tryer

[maximov]

Wahlweise auch mit TObjectList aus der unit contnr:

Delphi-Quellcode:

var 
  ObjectList: TObjectList; 

...
ObjectList.ownsObjects := true;
...
ObjectList.remove(obj); // free etc...sparste dir das alles von oben

dann kümmert sich die liste auch automatisch um das freigeben aller und einzelner objekte!

[skyphab]

achso. also eine liste mit den objekten, die ich dann über die liste suchen und ansprechen kann.
ich habs so mal probiert und es funktionert. sehr praktisch

nur wie suche ich jetzt in einer liste nach dem namen des objektes um den index zurüzubekommen? bei indexof will er ja ein objekt als mitgabewert. kann ich da den namen casten?

edit: oder muss ich mir die namen in einer separaten liste führen?

[maximov]

Du brauchst eine objektklasse, die eine Name property hat:

Delphi-Quellcode:

type
  TNamedObject = class(TObject);
  private
    FName:string;
  public  
    constructor Creat(const aName:string);
    Class function FindInstance(const aName:string):TNamedObject;
    property Name:String read FString write FString; 
  end;
   
implementation

uses contnr;

var 
  ObjectList: TObjectList; 


constructor TName.Creat(const aName:string);
begin
  FName := aName;
  ObjectList.add(self); // selbst verwaltung
end;

Class function FindInstance(const aName:string):TNamedObject;
var i:Integer;
begin
  result := nil;
  for i:= 0 to ObjectList.count-1 do
    if sameText(TNamedObject(ObjectList[i]).FName, aName) then 
    begin
      result := TNamedObject(ObjectList[i]);
      exit;
    end;
end;

initialization
  ObjectList:= TObjectList.create; // liste erzeugen
  ObjectList.ownsObjects := true;

finalization
  ObjectList.free; // alle objekte wieder freigeben
end.

Damit hättest du das alles schön in eine klasse gekapselt! Und so arbeitest du damit:

Delphi-Quellcode:

// Neues object erzeugen und der liste anfügen
TNamedObject.create('Peter');

// suchen und finden
objX := TNamedObject.findInstance('Peter'); 
if objX <> nil then ObjX.doSameMethod; // gefunden

..Habs aus dem kopf geschrieben, desshalb können fehler drinne sein...das prinzip sollte aber deutlich werden

[skyphab]

ah wunderbar, dankeschön
ich hatte mir fast schon gedacht, dass ich für die klasse eine methode erstellen muss, die den namen ausgibt. ich dachte zu anfangs wirklich, dass es eine delphi-funktion gibt, der ich einfach den string übergebe und sie den rest macht nur leider war dem wohl nicht so

ok wunderbar, dann werde ich das so mal testen. danke nochmal