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

[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

[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.

[Jim Carrey]

Demo befindet sich im Beitrag oben drüber =)
Da ist nur das Nötigste drin.

[Aviator]

Zitat von Jim Carrey:

Demo befindet sich im Beitrag oben drüber =)
Da ist nur das Nötigste drin.

Also beim Start deiner fertigen Exe habe ich keine AV bekommen.

Nachdem ich sie dann neu compiliert habe (auch im Release Modus), kam sie dann.

Die AV tritt bei mir in der folgenden Zeile auf: Data^ := aRecord; Scheinbar gibt es da irgendwie Probleme beim Kopieren der Daten. Auf sInformation kann beim Debuggen z.B. nicht zugegriffen werden. Beim Debuggen durch den Disassebly Code bleibt er in der Methode UStrAsg hängen die von CopyRecord aufgerufen wird. Es ist also wohl keine gute Idee einen Record zu übergeben und den dann weiterzuverarbeiten.

Auch das Umschreiben auf einen normalen record anstatt eines packed record hat bei mir nichts gebracht.

EDIT: Vielleicht kann jaenicke dazu noch was sagen. Er benutzt den VST ja auch häufig und kann dir bei dem Fehler bestimmt noch besser helfen.

Alternativ bleibt wohl, dass du nicht über eine Zwischenprozedur gehst oder zumindest über eine, die die Daten nicht übergeben bekommt. Oder du steigst auf eine Miniklasse um. Ist zwar vielleicht etwas overkill, aber wird den Fehler wohl beheben und du hast mehr Möglichkeiten in der Zukunft.