TTreeNode soll auf ein anderes Objekt zeigen

[xZise]

Hi... Ich bins wieder mit einem ziemlich dummen Problem ^^
Und zwar habe ich verschiedene TTreeNodes auf meiner TTreeView (oh wunder) und ein System wo die Dateien gespeichert sind. (Sozusagen sind die TreeNodes Repräsentanten)

Also möchte ich das Objekt, welches ich anlege, irgendwie in TTreeNodes speichern, ohne viel umzukrempeln.
Also dachte ich: Ich erstelle ein neues "TTreeNode" Objekt und füge diese Fehlende Eigenschaft hinzu:

Delphi-Quellcode:

unit uTTreeNodeEx;

interface

uses
   ComCtrls, uCode;

type
   TTreeNodeEx = class(TTreeNode)
  private
    FAssociatedWith: TMemoInformation;
    procedure SetAssociatedWith(const Value: TMemoInformation);
    function GetParent: TTreeNodeEx;
   published
    property AssociatedWith : TMemoInformation read FAssociatedWith write SetAssociatedWith;
  public
     property Parent: TTreeNodeEx read GetParent;
     constructor Create(AOwner : TTreeNodes);
  end;

implementation

{ TTreeNodeEx }

constructor TTreeNodeEx.Create(AOwner: TTreeNodes);
begin
  inherited;
  FAssociatedWith := nil;
end;

function TTreeNodeEx.GetParent: TTreeNodeEx;
begin
  Result := TTreeNodeEx(inherited Parent);
end;

procedure TTreeNodeEx.SetAssociatedWith(const Value: TMemoInformation);
begin
  FAssociatedWith := Value;
end;

end.

Wie man sieht nicht viel Code, wenn man von Parent und Create absieht.
Das Problem ist jetzt nur, wie kriege ich das im TreeView gespeichert...
Meine "Lösung":

Delphi-Quellcode:

var
  child : TTreeNodeEx;
begin
  child := TTreeNodeEx(tvMemolist.Items.AddChild(pParent, eTitle.Text));
  child.AssociatedWith := ...;
end;

Delphi-Quellcode:

procedure TfrmMain.tvMemolistChange(Sender: TObject; Node: TTreeNode);
var
  pParent : TTreeNodeEx;
begin
  pParent := TTreeNodeEx(Node);
  Showmessage(pParent.AssociatedWith.Name);
end;

Aber es hat nicht sein sollen => AV

[Khabarakh]

Siehst du irgendwo eine Instanzierung deiner neuen Klasse? Nein? Wie soll sie dann bitte in die Nodes-Collection kommen? Bisher ruft diese einfach TTreeView.CreateNode auf und erstellt damit natürlich einen TTreeNode.
Aber wäre TTreeNode.Data nicht die einfachere Lösung? Beide Lösungen benötigen jeweils einen Cast.

[xZise]

Okay... danke wegen Data... aber ich hatte schon nach Tag gesucht... Deshalb habe ich diesen Umweg gemacht... Aber mit Data ist das natürlich richtig easy ^^

[Khabarakh]

Man sollte CodeGear raten, die Onlinehilfe aus Kostengründen in den weiteren Versionen komplett zu entfernen...

[xZise]

So... Jetzt mache ich das über .Data und es scheint zu funktionieren... Aber wie kann ich jetzt überprüfen, ob der Pointer auf ein Object "TM2MFile" oder "TMemoInformation" zeigt?

Delphi-Quellcode:

if Node.Data^ is TM2MFile then
  Showmessage('TM2MFile!');

So auf jedenfall nicht...

Wegen der Hilfe... Auf was sollte das eine Anspielung sein?

[DGL-luke]

Delphi-Quellcode:

if TObject(Data) is TM2MFile then
  Showmessage('TM2MFile!');

[xZise]

Danke... Aber jetzt gibt es da eine AV...

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Memonizer.exe ist eine Exception der Klasse EAccessViolation mit der Meldung 'Zugriffsverletzung bei Adresse 00403CFC in Modul 'Memonizer.exe'. Lesen von Adresse 5DE58B37' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Allerdings weiß ich nicht, ob die von deinem Konstrukt kommt, da etwas weiter unten im Code auch eine AV kommt (aber diese AV von oben, passiert, laut debuger in der Zeile wo überprüft wird) und die ggf. die gleiche Quelle haben... Mal funktionierts mal nicht :/

[edit]Ich verstehe die Welt nicht mehr ....

Also hier ist alles i.O.:

Delphi-Quellcode:

child.Data := @b;
Showmessage(TM2MFile(child.Data^).Name);

Aber dann (es folgenen jetzt nur die Initialisierung der anderen Fenster) gibts ne AV im OnChange Ereignis (Hinweis: Dazwischen ist ansonsten nichts):

Delphi-Quellcode:

mMemo.Lines.Text := TM2MFile(Node.Data^).Memo;

PS: "Name" würde auch anstelle von "Memo" gehen ^^[/edit]

[DGL-luke]

warum dereferenzieren? glaube das ist nicht nötig.

außerdem:

- auf <> nil prüfen
- as-operator verwenden, dann kriegst du ne Excweption, wenn mit dem typ was nicht stimmt.

machs doch einfach so wie ich dir sag ;-)

[xZise]

Zitat:

Zitat von DGL-luke

warum dereferenzieren?

Das ist dieses "^" am ende des Pointers?
Ist es nicht so, dass ich die Variable, und nicht den Zeiger der Variable, casten muss?

Zitat:

Zitat von DGL-luke

- auf <> nil prüfen

Habe ich schon "indirekt", indem er mir eine msg anzeigen sollte, wenn es "nil" ist, aber das war es nicht :(

Zitat:

Zitat von DGL-luke

- as-operator verwenden, dann kriegst du ne Excweption, wenn mit dem typ was nicht stimmt.

Ja könnte man machen, aber es würde ja nicht helfen.
Abgesehen davon, dass der Node in der Changemethode eigentlich richtig sein müsste...

Zitat:

Zitat von DGL-luke

machs doch einfach so wie ich dir sag ;-)

Darum gehts doch nicht mehr ^^ Das überprüfen würde nichts bringen, weil dann nüscht passieren würde ^^

[edit]Wegen as =>

Zitat:

[Pascal Fehler] uMain.pas(331): E2015 Operator ist auf diesen Operandentyp nicht anwendbar

[/edit]

[DGL-luke]

wie oft denn noch. machs so, wie ich dir sag: ;-)

Delphi-Quellcode:

if TObject(Node.Data) is TM2MFile then
  Showmessage('TM2MFile!');

Meinetwegen auch gerne mit Dereferenzierung, kann man ja beides mal ausprobiern.

PS: Zuweisen so:

Delphi-Quellcode:

Node.Date := Pointer(TM2MInstance);

[xZise]

Ich bin jetzt leicht verwirrt ...
Es geht nicht mehr darum zu überprüfen ob Data vom Typ TM2MFile!
Ich weiß es jetzt in dem Speziellen Fall! Aber später, wenn es läuft, dann werde ich darauf zurückgreifen, und das anders überprüfen!
Und das zuweisen geht richtig in die Hose: Es gibt eine wunderschöne AV! :(

Ich bin verwirrt, warum jetzt an dieser unmöglichen Stelle genau das auftritt... obwohl es ja vorher funktioniert.

[DGL-luke]

av beim zuweisen :shock:

ja was machst du denn da?!

das objekt nicht erzeugt oder was? zeig mal mehr code!

Ich arbeite mit Node.Data seit AD 1328...

[xZise]

Zitat:

Zitat von DGL-luke

seit AD 1328...

Geeeeeeeeeeenau ^^

Aber back to Topic:
Ihc habe jetzt das Problem behoben indem ich statt einen Pointer die Variable zuweise...
Hier mal ein Beispiel:

Delphi-Quellcode:

// so mach ichs nun
Node.Data := TObject;
// so wars
Node.Data := @TObject
// oder (+AV)
Node.Data := Pointer(Tobject);

[DGL-luke]

Ähm....

zwischen

Delphi-Quellcode:

var
  p: Pointer;
  obj: TObject;

p := obj;

und

Delphi-Quellcode:

var
  p: Pointer;
  obj: TObject;

p := Pointer(obj);

darf doch kein unterschied sein?!

[3_of_8]

Richtig.

Seien p ein Pointer und obj ein TObject.

Delphi-Quellcode:

p:=obj;

Weißt p den Instanzenpointer von obj zu.

Delphi-Quellcode:

p:=Pointer(obj);

Das gleiche.

Delphi-Quellcode:

p:=@obj;

Weißt p einen Pointer auf den Instanzenpointer von obj zu. Also wenn der Instanzenpointer von obj auf dem Stack liegt, wird p der Wert von esp zugewiesen, z.B.

[xZise]

Aber warum sollte ich denn, wenn es beide die gleichen Vorgänge sind, mit Pointer() zuweisen? Abgesehen davon das es jetzt so geht und ich nur ungerne wieder zurückgehe, wo es ja nicht funktioniert hat!

[3_of_8]

Sollst du nicht. Ich habe nur gesagt, dass es so auch gegangen wäre und habe genau gesagt, was die einzelnen Anweisungen machen.

[xZise]

Ich meinte auch luke...

Zitat:

Zitat von DGL-luke

PS: Zuweisen so:

Delphi-Quellcode:

Node.Date := Pointer(TM2MInstance);

[DGL-luke]

hast du dich da verzitiert? das ist nämlich alt ^^