StringGridに九九表を作成したい

解決

AWAKE  2005-08-18 15:53:20  No: 17127  IP: 192.*.*.*

StringGridに九九表を作成したいと思っています。ただセルに表示するだけではなく、for文？などを使用して作成するにはどうすればいいでしょうか。教えてください。

編集 削除
シュクダイ？  2005-08-18 16:35:52  No: 17128  IP: 192.*.*.*

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y, m: Integer;
begin
  StringGrid1.RowCount := 10;
  StringGrid1.ColCount := 10;
  for x:=0 to 9 do begin
   for y:=0 to 9 do begin
    m := x * y;
    if (x = 0)or(y = 0) then m := x + y;
    StringGrid1.Cells[x,y] := IntToStr(m);
   end;
  end;
end;

編集 削除
AWAKE  2005-08-18 16:49:46  No: 17129  IP: 192.*.*.*

早速の回答ありがとうございました。本当に助かりました。宿題です・・・。

編集 削除