[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;

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


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

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