[SOLVED] Summarizing the VirtualStringTree column

[Pe3s]

Hello, I'm trying to write a column summation in VirtualStringTree. Can I ask more experienced colleagues for some hints?

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button7Click(Sender: TObject);
2. var
3.   Data: PData;
4.   Node: PVirtualNode;
5.   SUM: Double = 0;
6. begin
7.   for Data in   do
8.   SUM +=
9.   Panel1.Text := FormatFloat('0.00', SUM);
10. end;
11.  

[jamie]

Don't think you are going to get anywhere with that.

 There are 10 kinds of people out there, those that know binary and those that don't.

[paweld]

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button7Click(Sender: TObject);
2. var
3.   Data: PData;
4.   Node: PVirtualNode;
5.   SUM: Double = 0;
6. begin
7.   Node := vst.GetFirst();
8.   while Node <> nil do
9.   begin
10.     Data := vst.GetNodeData(Node);
11.     SUM := SUM + Data^.ColumnToSum;
12.     Node := vst.GetNext(Node);
13.   end;
14.   Panel1.Text := FormatFloat('0.00', SUM);
15. end;

[Pe3s]

@paweld Thank you very much