[ApplicatiOn]

Помогите пожалуйста с компонентов ListView.

Необходимо подсчитать все значения из Caption в одну переменную вещественного типа...

[lmikle]

Циклом по ListView.Items, конвертируешь через StrToFloat. только не забудь обрабатывать ошибки конвертации.

[ApplicatiOn]

а как обратьться к нужной колонке?

[lmikle]

Код:

var
  S : String;
begin
  S := ListView.Items[i].Caption; // главная
  S := ListView.Items[i].SubItems[0]; // первая дополнительная
  S := ListView.Items[i].SubItems[1]; // вторая дополнительная
end;

[ApplicatiOn]

for i:= 1 to <?> do
my_var := strtofloat(ListView.Items[i].Caption)+my_var;

что указать заместо <?> ?

[ApplicatiOn]

Нашел..

ListView1.Items.Count

[ApplicatiOn]

выдается ошибка... в строчке

Код:

my_var := strtofloat(ListView1.Items[i].Caption)+my_var;

писал так

Код:

for i:= 0 to ListView1.Items.Count do
my_var := strtofloat(ListView.Items[i].Caption)+my_var;

[lmikle]

Сообщение от ApplicatiOn

Нашел..
ListView1.Items.Count

только от 0 до Count - 1.

Сообщение от ApplicatiOn

выдается ошибка... в строчке
<skip>[/code]

Скорее всего где-то данные, которые нельзя отконвертировать.
Надо примерно так:

Код:

var
  t  : double;
...
try
  t := strtofloat(ListView1.Items[i].Caption);
  my_var := my_var + t;
except
end;

[ApplicatiOn]

да не, я разобрался.. try тут совсем лишний...

[oxy-fox]

А как записать данные в нужную колонку?

[lmikle]

Если колонка первая, то в Caption итема.
Все остальные - в Item.SubItems[No-1], где No - номер колонки при подсчете с 0, т.е. вторая колонка будет Item.SubItems[0], третья Item.SubItems[1] и т.д. только проверяй, что они уже созданы.