掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
StringGridに九九表を作成したい (ID：17128)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
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;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.