array 問題 |
答題得分者是:change.jian
|
tidal
初階會員 發表:93 回覆:32 積分:25 註冊:2003-07-15 發送簡訊給我 |
|
change.jian
版主 發表:29 回覆:620 積分:439 註冊:2003-06-02 發送簡訊給我 |
tidal,如下:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) Button1: TButton; StringGrid1: TStringGrid; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var A : array of array of string; I, J : Integer; begin SetLength(A, 10); for I := 0 to High(A) do begin SetLength(A[I], 10); for J := 0 to High(A[I]) do A[I,J] := 'I:' IntToStr(I) ',' 'J:' IntToStr(J); end; StringGrid1.FixedCols:=0; StringGrid1.FixedRows:=0; StringGrid1.RowCount:=high(A) 1; StringGrid1.ColCount:=high(A[0]) 1; for i:=0 to high(A) do begin for j:=0 to high(A[i]) do StringGrid1.Cells[I,J]:=A[I,J]; end; end; end. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |