Daten-Rekord zu TreeView hinzufügen - Problem/AV

[Jim Carrey]

Ich bin scheinbar wieder zu doof die Sachen anzuwenden, die ich einst gelernt habe.
Für eine VirtualStringTree die nur sehr wenige Nodes enthalten soll (weniger als 10), benutze ich ein Rekord und folgendes Konstrukt:

Delphi-Quellcode:

type
 PVSTData = ^TVSTData;

 TVSTData = packed record
  sTitle, sInformation: string;
 end;

Delphi-Quellcode:

procedure AddVSTStructure(aVST: TVirtualStringTree; aRecord: TVSTData);
var
 Data: PVSTData;
 Node: PVirtualNode;
begin
 Node := aVST.AddChild(nil);
 Data := aVST.GetNodeData(Node);

 Data^ := aRecord;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 aVSTData: TVSTData;
begin
 aVSTData.sTitle:= 'Title';
 aVSTData.sInformatio := 'Info';
 AddVSTStructure(VirtualStringTree1, aVSTData);
end;

procedure TForm1.VirtualStringTree1FreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
 Data: PVSTData;
begin
 Data := VirtualStringTree1.GetNodeData(Node);
 Finalize(Data^);
end;

Den Code AddVSTStructure habe ich vor langer Zeit hier im Forum gefunden und er hat auch immer funktioniert.
Nur bei diesem simplen Beispiel erhalte ich eine AV beim Klicken auf den Button (Zugriffsverletzung). Der node wird hinzugefügt, es gibt aber eine AV.
Das Problem ist: mein Testprojekt enthält nur diesen Button, das VST und sonst nichts.

[Daniel]

Gibt Deinem Beitrag bitten dennoch einen Aussagekräftigen Titel - das macht es für andere leichter, diesen zu finden, wenn sie ein ähnliches Problem haben.
Danke Dir.

[Headbucket]

In welcher Zeile tritt denn die access violation auf?
Mir ist aufgefallen, dass bei deiner AddVSTStructure Methode der Aufruf von ValidateNode fehlt. Aber das hat nichts mit der access violation zu tun... .

Das ganze sollte jedoch so aussehen:

Delphi-Quellcode:

function AddVSTStructure(AVST: TCustomVirtualStringTree; ANode: PVirtualNode; ARecord: TTreeData): PVirtualNode;
var
  Data: PTreeData;
begin
  Result:=AVST.AddChild(ANode);
  Data:=AVST.GetNodeData(Result);
  Avst.ValidateNode(Result, False);
  Data^.FCaption:=ARecord.FCaption;
end;

Zitat:

The method ValidateNode will initialise the nodes. This is important at the freeing of the data, because otherwise the data will be released into the memory. The first parameter
must be the node you want to initialise, the second if you also want to initialise its children.

Wie sieht denn deine GetText-Methode des VST aus?

Grüße
Headbucket

[Aviator]

Also am SourceCode selbst kann ich keinen Fehler erkennen. Bist du mal mit dem Debugger durchgegangen und hast dir (ggf. anhand des StackTraces) mal angeschaut wo er die AV bringt?

EDIT: Von der Methode AddChild() sollte man generell Abstand nehmen. Siehe auch den Kommentar über dere AddChild() Methode in der VirtualTrees.pas

Dann brauchst du auch keine ValidateChildren mehr, da du die Daten dann selbst vorhalten musst.

[Jim Carrey]

Wo die AV auftritt weiß ich nicht. Der Code hat wie gesagt bisher immer wunderbar funktioniert.

Delphi-Quellcode:

procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
 Data: PVSTData;
begin
 Data := VirtualStringTree1.GetNodeData(Node);

 CellText := Data.sTitle;
end;

Ich hasse VirtualStringTree einfach.
Ich dachte ich kann schnell einen Node mit 1 Children erzeugen und delbst das klappt nicht.

Edit:

Zitat:

EDIT: Von der Methode AddChild() sollte man generell Abstand nehmen. Siehe auch den Kommentar über dere AddChild() Methode in der VirtualTrees.pas

Naja, weil ich ja eh weniger als 10 Nodes hinzufüge dieses mal dachte ich, nehme ich die "einfache" Variante ohne TObjectList und all dem Quark.

[Aviator]

Zitat von Jim Carrey:

Wo die AV auftritt weiß ich nicht. Der Code hat wie gesagt bisher immer wunderbar funktioniert.

Delphi-Quellcode:

procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
 Data: PVSTData;
begin
 Data := VirtualStringTree1.GetNodeData(Node);

 CellText := Data.sTitle;  // <------------------  HIER FEHLT EIN ZIRKUMFLEX
end;

Das sollte der Fehler sein. Richtig müsste es lauten: CellText := Data^.sTitle;

[Jim Carrey]

Zitat von Aviator:

Das sollte der Fehler sein. Richtig müsste es lauten: CellText := Data^.sTitle;

AV kommt noch immer beim Beenden des Programms obwohl ich beim beenden Der Demo absolut nichts mache

Also im Prinzip einfach:
wenn ich die Zeile im Button mit AddVSTStructure() weglasse, kommt keine AV.

[Headbucket]

Data ist ein Zeiger. Du versuchst also in GetText auf die Adresse dieses Zeigers zuzugreifen und dort dann auf den Record...das klappt natürlich nicht. Du solltest auf den INHALT des Zeigers zugreifen:

Delphi-Quellcode:

procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
 Data: PVSTData;
begin
 Data := VirtualStringTree1.GetNodeData(Node);
 CellText := Data^.sTitle;
end;

Hast du ValidateNode hinzugefügt?

Grüße
Headbucket

[Jim Carrey]

Ich baue euch mal eine Demo.

[Aviator]

Lass mal das FreeNode Event komplett weg. Nimm es aus dem Objektinspektor einfach mal raus. Spielt jetzt erstmal keine Rolle ob ein Memory Leak ensteht oder nicht. Wenn dann keine AV mehr kommt, dann kann ich es mir nur noch so erklären, dass es an dem Finalize() liegt. Obwohl das eigentlich kein Problem machen sollte.

Das Ding ist nur, dass beim Klick auf den Button noch kein FreeNode ausgeführt wird, deshalb dürfte der Fehler auch da nicht drin liegen.

Welche VST Version verwendest du denn?

Zitat von Jim Carrey:

Ich hasse VirtualStringTree einfach.
Ich dachte ich kann schnell einen Node mit 1 Children erzeugen und delbst das klappt nicht.

Wenn du einmal einen funktionierenden VST hast und dich richtig mit der Komponente beschäftigst/beschäftigen kannst, dann wirst du ihn lieben.

Zitat von Jim Carrey:

Ich baue euch mal eine Demo.

Ja das wäre mal nicht schlecht.