Wolfgang Chien's Homepage | Delphi¾Ç²ßµ§°O - °Ýµª½g |
½Ð°Ý¦bpascal¤¤¦³¨S¦³¤°»ò¤èªk¥i¥H°µ¨ìÃþ¦üc¤¤
int a[2][2]={{1,1}, {1,2}};
ª½±µ±N¤@¤j°ïassignµ¹µ¹¤@Óarray¡H
Pascal ªº½s;¹¦b¤j¾Ç®ÉÁÙ¦³, ²{¦b¤£ª¾¹D¨ìþùØ¥h¤F, ¤£¹L, Delphi ¥i¥H³o¼Ë¤l¼g:
procedure TForm1.Button1Click(Sender: TObject); const ArrayTest: array[1..2, 1..2] of integer = ((1, 2), (3, 4)); var i, j: integer; begin Memo1.Clear; for i := 1 to 2 do for j := 1 to 2 do begin ArrayTest[i, j] := ArrayTest[i, j] + 1; Memo1.Lines.Add(IntToStr(ArrayTest[i, j])); end; end;
º¶ | ¾Ç²ßµ§°O | ¥DÃD¤½¶é | ³nÅé¤U¸ü | Ãö©ó¥»¯¸ | °Q½×«H¸s | ¬Û¬ù¤U¦¸ |