как пересчитать ячейки стринггрида

[TotKtoNado]

как мне пересчитать значения ячеек стринггрида 2 и 3 столбца?
я использовал код но он что то ругаеться

var a:array[1..stringgrid1.rowcount] of integer;
begin
a:=stringgrid1.cells[1,a];
end;

[Serge_Bliznykov]

1) что значит - "пересчитать" ? И при чём здесь массив A ?

2) такое объявление массива недопустимо.
Delphi допускает объявление либо статических массивов (тогда границы массивов задаются костантами.
либо динамических - тогда границы объявляемого массива совсем отсутствуют в объявлении.
Но указывать переменную в качестве границ массива нельзя.

3) что означает a присвоить элемент грида [1, a ] ?
Это же полный нонсенс!!
про такие "мелочи", что грид состоит из элементов типа string
а массивы - из элементов Integer уже можно просто промолчать..

так что я согласен с Delphi. я бы тоже сильно ругался...

[TotKtoNado]

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

1) что значит - "пересчитать" ? И при чём здесь массив A ?

2) такое объявление массива недопустимо.
Delphi допускает объявление либо статических массивов (тогда границы массивов задаются костантами.
либо динамических - тогда границы объявляемого массива совсем отсутствуют в объявлении.
Но указывать переменную в качестве границ массива нельзя.

3) что означает a присвоить элемент грида [1, a ] ?
Это же полный нонсенс!!
про такие "мелочи", что грид состоит из элементов типа string
а массивы - из элементов Integer уже можно просто промолчать..

так что я согласен с Delphi. я бы тоже сильно ругался...

а как динамический массив указать?

[ArtGrek]

если правельно мысль понял, то так

var 
  a: array of integer;
begin
  SetLength(a,stringgrid1.rowcount);
  a[1]:=StrToInt(stringgrid1.cells[1]);
end;

[Serge_Bliznykov]

ArtGrek, +1

единственное, что если интересует весь второй (судя по индексу, 1- это второй) столбец:

var 
  a: array of integer;
  i : integer;
begin
  SetLength(a, stringgrid1.rowcount);
  for i:=0 to stringgrid1.rowcount-1 do
      a[i]:=StrToInt(stringgrid1.cells[1, i]);
end;

p.s. А всё таки, TotKtoNado, Вы уверены, что Вам нужно проделывать эту ненужную работу и переносить данные из грида в массив (пусть и динамический)?! Чем Вас собственно сам грид в качестве массива не устраивает?!

[TotKtoNado]

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

ArtGrek, +1

единственное, что если интересует весь второй (судя по индексу, 1- это второй) столбец:

var 
  a: array of integer;
  i : integer;
begin
  SetLength(a, stringgrid1.rowcount);
  for i:=0 to stringgrid1.rowcount-1 do
      a[i]:=StrToInt(stringgrid1.cells[1, i]);
end;

p.s. А всё таки, TotKtoNado, Вы уверены, что Вам нужно проделывать эту ненужную работу и переносить данные из грида в массив (пусть и динамический)?! Чем Вас собственно сам грид в качестве массива не устраивает?!

ща она опять ругаеться http://i031.radikal.ru/1104/81/cbcf939eea31.png

[Serge_Bliznykov]

А всё таки, TotKtoNado, Вы уверены, что Вам нужно проделывать эту ненужную работу и переносить данные из грида в массив ?!

ща она опять ругаеться

а чего ж ей не ругаться? у Вас первым идёт название столбца.
Его Delphi очень тяжело преобразовать в число!

[TotKtoNado]

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

А всё таки, TotKtoNado, Вы уверены, что Вам нужно проделывать эту ненужную работу и переносить данные из грида в массив ?!


а чего ж ей не ругаться? у Вас первым идёт название столбца.
Его Delphi очень тяжело преобразовать в число!

щас вот только что додумалсякак с помощью цикла пересчитать
var
i,estRas : integer;
begin
estRas:=stringgridrashodi.rowcount;
for i:=1 to estRas do
begin
LabelItogRashod.Caption:=stringgrid Rashodi.cells[estRas-1,1];
end;
end;

и нажимаю на добавить столбцы и текст в лабеле исчезает
что за фигня?