TreeView1.Selected.Data und Typenkonvertierungsfehler

[ozz]

Guten Zusammen.
irgendwie habe ich immer Probleme mit Typenkonvertierungen :twisted:. Bei den Beispiel bekomme ich immer die Meldung:
Inkompatible Typen TCLCategory und Char.
Irgendwie ist da aber kein Char Typ. TCLCategory ist ein Record nur aus Integern. Und laut Doku ist Data vom Typ Pointer. Das Hinzufügen funktioniert auch. Nur bei Auslesen bekomme ich obigen Fehler.

Danke für die Tips.

Delphi-Quellcode:

procedure TForm1.ActionShowCategoryDetailsExecute(Sender: TObject);
var CLCategory:TCLCategory;
begin
CLCategory:=^TCLCategory(TreeView1.Selected.Data)^;
end;

[Muetze1]

Delphi-Quellcode:

Type
  PCLCategory = ^TCLCategory;
  TCLCategory = ...;

....

procedure TForm1.ActionShowCategoryDetailsExecute(Sender: TObject);
var 
  CLCategory: TCLCategory;
begin
  If Assigned(TreeView1.Selected) Then  // safety first...
  Begin
    CLCategory := PCLCategory(TreeView1.Selected.Data)^;

    ...
  End;
end;

[DGL-luke]

hmm... also ich würde ja das so machen:

Delphi-Quellcode:

CLCategory := TCLCategory(TreeView1.Selected.Data^);

evtl. sogar

Delphi-Quellcode:

CLCategory := TCLCategory(Pointer(TreeView1.Selected.Data)^);

gute nacht...

PS: hmpf... wieder einer schneller.. wenigstens geth der rote kasten.
PPS: und noch einer?! ach so, editiert...

[ozz]

Danke DGL-lukeund Muetze1. :bouncing4:

@Muetze1:
In Prinzip habe ich doch das Gleiche gemacht.Der einzige Unterschied ist doch, das du noch eine Typ für den typisierten Pointer von TCLCategory als PCLCategory definiert hast.

[Muetze1]

Ja, aber einen Zeiger auf einen Typen zu deklarieren um ihn dahinter gleich wieder zu dereferenzieren - heikle Sache. Da kann es sehr gut sein, das da Delphi nicht mitspielt bzw. es falsch parst.

[ozz]

Guten Morgen Muetze1.
Das war genau das Problem. Jetzt funzt es. Danke für die Erläuterungen.