Recorrer TreeView y calcular totales

[[Lepe]]

Estás mezclando la interfaz con la lógica de la aplicación... no es buena idea porque te complica todo lo demás.

En teoría, deberías tener una jerarquía de clases, o al menos varias listas unas dentro de otras formando el arbol... pero con TObject y TObjectList. Eso ya te da toda la potencia para calcular los totales y lo que quieras.

Pasarlo al Treeview, es sólo recorrer las listas y crear nodos... cosa de poca monta, vamos.

Código Delphi [-]
type 
Tcuenta = TObject;
Tcuentas = class (TObjecList)
  public 
      property items[index:integer]:Tcuenta read getItem write SetItem;
      property Total :Extended read GetTotal;
end;

Con una definición así puedes hacer todas las virguerías que quieras, sumas, eventos al modificar una cuenta y un total... etc.

Saludos