[cyber922]

Вообщем на форме две таких таблицы, 4 на 4 и 5 на 5. , нужно чтобы в первой таблице во втором столбце,подсчитывалась сумма чисел, а во второй таблице, подсчитывалась сумма чисел второй строки...

[angvelem]

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

... нужно чтобы в первой таблице во втором столбце,подсчитывалась сумма чисел...

Сумма чисел чего, каких ячеек?

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

... а во второй таблице, подсчитывалась сумма чисел второй строки...

Второй строки какого StringGrid-а?

Немного внятнее можно, с телепатией проблема.

[cyber922]

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

Сумма чисел чего, каких ячеек?


Второй строки какого StringGrid-а?

Немного внятнее можно, с телепатией проблема.

в первом гриде, сумму только целых чисел ВСЕХ ячеек второго столбца, а во втором гриде сумму ВСЕХ яйчеек только целых чисел 2 строки

Размеры я указал....
а, да, и чтоб по отдельности каждая сумма в едит выводилась, ну то есть, сумма ячеек 2 столбца в один едит, а сумма ячеек второго грида( со строкой) во второй эдит

[angvelem]

И в чём проблема?

Код:

var
  I, J : Integer;
begin
  J := 0;
  for I := 0 to 3 do
    J := J + StrToIntDef(SG1.Cells[1, I], 0);
  Edit1.Text := IntToStr(J);

  J := 0;
  for I := 0 to 4 do
    J := J + StrToIntDef(SG2.Cells[I, 1], 0);
  Edit2.Tetx := IntToStr(J);
end;

[cyber922]

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

И в чём проблема?

Код:

var
  I, J : Integer;
begin
  J := 0;
  for I := 0 to 3 do
    J := J + StrToIntDef(SG1.Cells[1, I], 0);
  Edit1.Text := IntToStr(J);

  J := 0;
  for I := 0 to 4 do
    J := J + StrToIntDef(SG2.Cells[I, 1], 0);
  Edit2.Tetx := IntToStr(J);
end;

счаз попробуем))


Работаеет)) спасибо))

а как подсчитать количество вхождений символа «&» в текстовую таблицу.?
Символы я любые ввожу.