Hallo,

ich habe folgendes Problem,
ich hab ein Treeview der einen Record hat mit einem String und einem Index. Der String wird als CellText verwendet, der Index wird intern verwendet.

Mein Record

markieren

Delphi-Quellcode:

type
  PBaumDaten = ^RBaumDaten;
  RBaumDaten = Record
    Text: String;
    Index: Integer;
end;

Die Initialisierung sieht so aus:

markieren

Delphi-Quellcode:

procedure TForm1.vstErgebnisGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
begin
 NodeDataSize:= SizeOf(PBaumDaten);
end;

Freigabe der Daten:

markieren

Delphi-Quellcode:

procedure TForm1.vstErgebnisFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
Var pDaten: PBaumDaten;
begin
 pDaten:= vstErgebnis.GetNodeData(Node);
 If Assigned(pDaten) Then
 Begin
  pDaten.Text:= '';
  pDaten.Index:= 0;
 End; //If
end;

CellText zuweisen:

markieren

Delphi-Quellcode:

procedure TForm1.vstErgebnisGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
Var pDaten: PBaumDaten;
begin
 pDaten:= Sender.GetNodeData(Node);
 If Assigned(pDaten) Then
  CellText:= pDaten.Text;
end;

Beim leeren (.Clear) tritt der Fehler "Ungültige Zeigeroperation" auf, beim Anhalten springt Delphi zu folgender Zeile im VirtualTree Source:
procedure TCustomVirtualStringTree.DefineProperties(Filer: TFiler); Virtual Tree 4.8.5
Delphi 2007

Ich komme nicht mehr weiter und weiß nicht wo mein Fehler liegt.
Kann mir jemand helfen?

Besten Dank!

Probiere mal:

markieren

Delphi-Quellcode:

procedure TForm1.vstErgebnisGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
begin
NodeDataSize:= SizeOf(RBaumDaten);
end;

Oh nein!

VIELEN vielen Dank!

Ah! Was für ein Brett vorm Kopf!

Hallo,

trotzdem sieht dein OnFreeNode komisch aus.
Muss man dort nicht den Pointer auch freigeben ?

Was sagt denn FastMM4 oder memcheck dazu ?

Ausserdem stimmt SizeOf(P) (4 Byte) eigentlich,
wenn du in das Data-Feld des VcNode den Pointer
und nicht den Record packst.


Heiko

FreeNode sieht eigentlich gut aus.

Der String wird auf "", wegen dem Speicherproblem mit HugeString und fertig.
Das index=0 muss nicht sein.

Naja, wie sollte den die OnFree-Procedure aussehen?

Das was dort steht hab ich aus einem Tutorial (delphi-treff) übernommen.
Ausgenommen dem geistigen Ausrutscher mit SizeOf.

FastMM probier ich nachher, bin grad nicht an meinem Rechner.

Hallo,

Was hast du im OnNodeInit (oder wie auch immer du den Tree initialisiert) gesetzt.


Heiko

Ähm. Nichts, ich kannte die procedure bis eben noch nicht mal.

Was gehört dort rein?
-Größe des Records ist ja schon bekannt.
-...