Hola de nuevo,
he cambiado el codigo a esto:
Código Delphi
[-]procedure TrForm.FormActivate(Sender: TObject);
var
i: integer;
total: extended;
total2: TStringList;
begin
total2.Create;
for i:= 0 to lista.Items.Count -1 do
begin
total2.Add(lista.Items[i].SubItems[9]);
total:= total + strToFloat(total2.Text) ; Label35.Caption:= FloatToStr(total);
label36.Caption:= total2.Text;
end;
end;
He intentado basarme en este código:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
StrList : TStringList;
begin
StrList := TStringList.Create;
StrList.Duplicates := dupIgnore;
StrList.Sorted := True;
for i := ListView1.Items.Count-1 downto 0 do
begin
if LowerCase(ListView1.Items[i].SubItems[0]) = LowerCase(Edit1.Text) then
StrList.Add(ListView1.Items[i].SubItems[0])
else
ListView1.Items.Delete(i);
end;
ShowMessage(StrList.Text);
StrList.Free;
end;
Que peternece a este post
http://www.clubdelphi.com/foros/showthread.php?t=82673, ahí se usa un messagebox para mostrar el valor y yo uso una etiqueta, creo que es la unica diferencia, aun asi, no me funciona. Ni puedosumar los valores de una columna ni me muestra en el label el contenido de una celda de la lista.
Ya estoy desesperao, incluso he cerrado delphi varias veces cabreao y al rato vuelvo a insistir en vano.
En fin, saludos.