|
ｿｽ@ｿｽｿｽStringGridｿｽﾉ具ｿｽｿｽ¥ｿｽｿｽ成ｿｽｿｽｿｽｿｽｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
AWAKE 2005/08/18(ｿｽｿｽ) 15:53:20
StringGridｿｽﾉ具ｿｽｿｽ¥ｿｽｿｽ成ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽZｿｽｿｽｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾅはなゑｿｽｿｽAforｿｽｿｽｿｽHｿｽﾈどゑｿｽgｿｽpｿｽｿｽｿｽﾄ作成ｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽVｿｽｿｽｿｽNｿｽ_ｿｽCｿｽH 2005/08/18(ｿｽｿｽ) 16:35:52
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
ｿｽｿｽｿｽｿｽｿｽﾌ回答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽ{ｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽhｿｽｿｽﾅゑｿｽｿｽEｿｽEｿｽEｿｽB
