Objekt erzeugen/an Prozedur uebergeben

[Eclipticon]

Hi,

momentan arbeite ich mit folgendem Code:

Code: Alles auswählen

procedure TMainForm.FormCreate(Sender: TObject);
 
  procedure AddObjectToTreeView(PSomeObject: Pointer);
  begin
    MyTreeView.Items.AddObject(MyTreeView.Items.Item[0], TSomeObject(PSomeObject^).Caption,  PSomeObject);
  end;
 
var
  SomeObject1, SomeObject2: TSomeObject;
begin
 
  // ...
 
  SomeObject1 := TSomeDerivedObject.Create
  AddObjectToTreeView(@SomeObject1);
  SomeObject2 := TSomeOtherDerivedObject.Create
  AddObjectToTreeView(@SomeObject2);
 
  // ...
 
end;

Das funktioniert zwar, gefaellt mir aber nicht.

Wie kann ich das Objekt uebergeben und nicht einen Pointer drauf? Das muss doch irgendwie moeglich sein ... bei meinen bisherigen Versuchen bekomm ich aber immer einen Segfault, sobald ich ein Objekt ueber MyTreeView.Items.Item.Data^ ansprechen will ...

Kann ich den Konstruktor irgendwie mit dem Prozeduraufruf verbinden, damit ich mir den Umweg ueber die Variablen spare?

Code: Alles auswählen

AddObjectToTreeView( TSomeOtherDerivedObject.Create)

in etwa ...

Danke

[u-boot]

Ohne dass ich mich mit treeview-sachen auskenne:

Könnte gehen, aber man muss sich überlegen, wie man auf ein solch erstelltes Objekt zugreifen will. Irgendwann wird man mit dem Objekt ja weiterarbeiten wollen.

[MAC]

ka
vlt so ?

Code: Alles auswählen

procedure TMainForm.FormCreate(Sender: TObject);
 
  procedure AddObjectToTreeView(SomeObject: TSomeObject);
  begin
    MyTreeView.Items.AddObject(MyTreeView.Items.Item[0], SomeObject.Caption,  @SomeObject); // Sollte funktionieren
    MyTreeView.Items.AddObject(MyTreeView.Items.Item[0], SomeObject.Caption,  Pointer(@SomeObject));  //im notfall so
  end;
 
var
  SomeObject1, SomeObject2: TSomeObject;
begin
 
  SomeObject1 := TSomeDerivedObject.Create
  AddObjectToTreeView(SomeObject1);
  SomeObject2 := TSomeOtherDerivedObject.Create
  AddObjectToTreeView(SomeObject2);
 
end;

[Eclipticon]

MAC, genauso hatte ich mir das auch vorgestellt ... aber bei

Code: Alles auswählen

TSomeObject(My.Items.Item[i].Data^).Destroy

bekomme ich auf diese Weise immer einen Runtime Error 210, waehrend mit dem Code im Originalposting lt. Debugger und heaptrc alles sauber aufgeraeumt wird ...

[theo]

Macht ihr da nicht einen Schritt zuviel?

SomeObject1 IST ein Pointer, und kann so übergeben werden.

Dann müsste auch
TSomeObject(My.Items.Data).Free;
funzen

[Eclipticon]

Theo, danke fuer den Hinweis!

So funkts (basierend auf dem Code von MAC:

Code: Alles auswählen

procedure TMainForm.FormCreate(Sender: TObject);
 
  procedure AddObjectToTreeView(SomeObject: TSomeObject);
  begin
    MyTreeView.Items.AddObject(MyTreeView.Items.Item[0], SomeObject.Caption,  Pointer(SomeObject));
  end;
 
var
  SomeObject1, SomeObject2: TSomeObject;
begin
 
  SomeObject1 := TSomeDerivedObject.Create
  AddObjectToTreeView(SomeObject1);
  SomeObject2 := TSomeOtherDerivedObject.Create
  AddObjectToTreeView(SomeObject2);
 
end;

Und zerstoeren wie Du beschrieben hast ...

[theo]

Code: Alles auswählen

Pointer(SomeObject)

Das Casting auf Pointer ist überflüssig. Wie gesagt, du kannst direkt SomeObject übergeben.

[pluto]

Code: Alles auswählen

procedure TMainForm.FormCreate(Sender: TObject);
 
  procedure AddObjectToTreeView(SomeObject: TSomeObject);
  begin
    MyTreeView.Items.AddObject(MyTreeView.Items.Item[0], SomeObject.Caption,  Pointer(SomeObject));
  end;
 
var
  SomeObject1, SomeObject2: TSomeObject;
begin
 
//  SomeObject1 := TSomeDerivedObject.Create
  AddObjectToTreeView(TSomeDerivedObject.Create);
  //SomeObject2 := TSomeOtherDerivedObject.Create
  AddObjectToTreeView(TSomeOtherDerivedObject.Create;
 
end;

warum nicht so?

[Eclipticon]

Danke allerseits