Delphi - Sumar

Hola Me Podrian decir como sumo el contenido de un subitem de un list view , El contenido q empiesa en 1 y se le suma EL mISMO subitem.
esta intruccion pongo pero me da error
for i:= 0 to Listview1.Items.Count -1 do begin
if uppercase(Listview1.Items[i].Caption) = uppercase(numero) then
ListView1.Items.Item[i].SubItems.text:=(IntToStr(StrToInt(ListView1.Items.Item[i].SubItems.text)+1));
Ojala me ayuden chao

A simple vista diría que el problema es que estás usando la propiedad Text de SubItems que al final le añade un par CR+LF (#13#10) a la cadena, que StrToInt no reconoce. Puedes usar Trim para recortar esos caracteres sobrantes, o mejor aún usar SubItems[0] en lugar de SubItems.Text

Ernesto

P.D.: Por favor enviar respuestas a mi dirección personal porque no visito este foro con regularidad