[ApplicatiOn]

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

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

[lmikle]

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

[ApplicatiOn]

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

[lmikle]

Код:

1 2 3 4 5 6 7

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]

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

Код:

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

писал так

Код:

1 2	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]

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

Код:

1 2 3 4 5 6 7 8

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] и т.д. только проверяй, что они уже созданы.