Подсчет количества цифр и их занесение в StringGrid

[artemavd]

добрый вечер! Суть проблемы изложил во вложение. Прошу вас, посмотрите . Предполагаю, что цикл возможно будет таким:

var
 i,j: integer;
begin
 for i:=0 to Form1.SG1.ColCount do
 for j:=0 to Form1.SG1.RowCount do
 begin
   if Form1.SG1.Cell[i,j] = '1' then
   begin
     Form1.SG3.Cell[0,0]:=Что написать здесь?;
   end;

   if Form1.SG1.Cell[i,j] = '2' then
   begin
     Form1.SG3.Cell[0,1]:=Что написать здесь?;
   end;

   if Form1.SG1.Cell[i,j] = '3' then
   begin
     Form1.SG3.Cell[0,2]:=Что написать здесь?;
   end;

   if Form1.SG1.Cell[i,j] = '4' then
   begin
     Form1.SG3.Cell[1,0]:=Что написать здесь?;
   end;

   if Form1.SG1.Cell[i,j] = '5' then
   begin
     Form1.SG3.Cell[1,1]:=Что написать здесь?;
   end;

   if Form1.SG1.Cell[i,j] = '6' then
   begin
     Form1.SG3.Cell[1,2]:=Что написать здесь?;
   end;

   if Form1.SG1.Cell[i,j] = '7' then
   begin
     Form1.SG3.Cell[2,0]:=Что написать здесь?;
   end;

   if Form1.SG1.Cell[i,j] = '8' then
   begin
     Form1.SG3.Cell[2,1]:=Что написать здесь?;
   end;

   if Form1.SG1.Cell[i,j] = '9' then
   begin
     Form1.SG3.Cell[2,2]:=Что написать здесь?;
   end;
 end;
end;

Понимаю, что скорее всего мой вариант цикла - это извращение, но если есть возможность сделать по-другому, то как? Заранее благодарен за помощь.

[eoln]

Например так

var
  q, k, i, j: integer;
  s: string;
begin
  for i := 0 to stringgrid1.RowCount - 1 do
  for j := 0 to stringgrid1.ColCount - 1 do
  begin
    s := stringgrid1.Cells[i, j];
    for k := 1 to length(s) do
    begin
      q := strtoint(s[k]);
      if q <> 0 then
      stringgrid3.Cells[(q - 1) div 3, (q - 1) mod 3] := stringgrid3.Cells[(q - 1) div 3, (q - 1) mod 3] + s[k]
    end;
  end;
end;

Потом пустые ячейки заполнить словом нет

[artemavd]

eoln, Спасибо за код конечно, но я что-то не могу понять что он делает . Результат его работы во втором вложении. В третьей таблице (SG3) должно быть именно количество видов цифр.
Вот Ваш код:

procedure TForm1.Button1Click(Sender: TObject);
var
  q, k, i, j: integer;
  s: string;
begin
  for i := 0 to Form1.SG1.RowCount - 1 do
  for j := 0 to Form1.SG1.ColCount - 1 do
  begin
    s := Form1.SG1.Cells[i, j];
    for k := 1 to Length(s) do
    begin
      q := StrToInt(s[k]);
      if q <> 0 then
      Form1.SG3.Cells[(q - 1) div 3, (q - 1) mod 3] := Form1.SG1.Cells[(q - 1) div 3, (q - 1) mod 3] + s[k]
    end;
  end;
end;

[eoln]

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

Form1.SG3.Cells[(q - 1) div 3, (q - 1) mod 3] := Form1.SG1.Cells[(q - 1) div 3, (q - 1) mod 3] + s[k]

Тут у вас неточность при переименовывании
Если интересует именно количество, то так

var
  q, k, i, j: integer;
  s: string;
begin
  for i := 0 to 2 do for j := 0 to 2 do SG3.Cells[i, j] := '0';
  for i := 0 to Form1.SG1.RowCount - 1 do
  for j := 0 to Form1.SG1.ColCount - 1 do
  begin
    s := Form1.SG1.Cells[i, j];
    for k := 1 to Length(s) do
    begin
      q := StrToInt(s[k]);
      if q <> 0 then
      SG3.Cells[(q - 1) div 3, (q - 1) mod 3] :=
        inttostr(strtoint( SG3.Cells[(q - 1) div 3, (q - 1) mod 3]) + 1)
    end;
  end;
  for i := 0 to 2 do for j := 0 to 2 do if SG3.Cells[i, j] = '0' then SG3.Cells[i, j] := 'нет';
end;

[psycho-coder]

procedure TForm1.Button2Click(Sender: TObject);
var
  CellLen: Integer;
  i, j, l: Integer;
  tmp: String;
  Res: array [1..9] of Byte;
begin
  for i := 0 to 9 do Res[i] := 0;
  for j := 0 to StringGrid1.RowCount - 1 do
    for i := 0 to StringGrid1.ColCount - 1 do
    begin
      CellLen := Length(StringGrid1.Cells[i, j]);
      tmp := StringGrid1.Cells[i, j];
      for l := 1 to CellLen do
        Inc(Res[StrToInt(tmp[l])]);
    end;

    l := 1;
    for j := 0 to 2 do
      for i := 0 to 2 do
      begin
        if Res[l] = 0 then StringGrid3.Cells[i, j] := 'Нет'
        else StringGrid3.Cells[i, j] := IntToStr(Res[l]);
        Inc(l);
      end;
end;

Код отладочный, его еще можно оптимизировать ))