[danielmj]

Hola ecfisa,

He mirado tu demo, la he puesto a andar y tira bien, va sin problemas. Ahora copio y pego tu codigo (el del boton) + la constante maxitem de la seccion implementation, lo acomodo a mi programa, le cambio los nombres de los controles para que no de error y esas cosas y lo que pasa es esto https://www.youtube.com/watch?v=IFnz...ature=youtu.be

Si, he llegado a un punto, que ya no sé que hacer para que funcione el asunto, y he optado por hacer una captura de video y que veais los pasos que sigo hasta que salta la liebre (el error).

Saludos y gracias.

Tu código modificado:

...
implementation

Código Delphi [-]
const
MAXITEMS = 10;
...

procedure TrForm.Button5Click(Sender: TObject);
var
  i: Integer;
  total: Double;
  li: TListItem;

begin
  total:= 0;
  for i:= 0 to MAXITEM -1 do
  begin
    li:= Lista.Items.Item[i];
    total:= total + StrToFloat(li.SubItems[Lista.Columns.Count-1]);
  end;
  label36.Caption:= FormatFloat('0.00', total)
  //ShowMessage(FormatFloat('0.00', total));
end;