各位大大，小弟不才，有下列問題發問，希望各位大大，指點一下！ 我有一個陣列為：A[33][33]; 那要如何用迴圈把下列的數值傳給A[33][33] 131313131313131313131313131313131 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 151515151515151515151515151515151 204040404040404040404040404040402 131313131313131313131313131313131

//請參考一下..D7下.

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:Integer;
  A:array[0..32,0..32]of string;//您的A[33][33]是這個意思..?!
begin
  memo1.Lines.LoadFromFile('C:\test.txt');//要傳的數值
  for i:=0 to memo1.Lines.Count-1 do
    for j:=0 to Length(memo1.Lines.Strings[i]) do
      A[i,j]:=memo1.Lines.Strings[i][j];
end;

引言: //請參考一下..D7下.

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:Integer;
  A:array[0..32,0..32]of string;//您的A[33][33]是這個意思..?!
begin
  memo1.Lines.LoadFromFile('C:\test.txt');//要傳的數值
  for i:=0 to memo1.Lines.Count-1 do
    for j:=0 to Length(memo1.Lines.Strings[i]) do
      A[i,j]:=memo1.Lines.Strings[i][j];
end;

< face="Verdana, Arial, Helvetica"> 大大，我目前就是用開檔的方式，可不可以用迴圈產生如上的數值(而不用開檔)，我的陣列就是如大大所說的A[0<=32][0<=32]！ 大大，不知可否用BCB的語法，小弟看不懂Delphi語法！ 謝謝大大！

//小弟作法請參考..D7下..

var
  A:array[0..32,0..32]of string;//全域變數
.....  
procedure TForm1.Button1Click(Sender: TObject);
var
  j:Integer;
begin
  j:=0;
  repeat
    if (j=0) then
      AddValue(j,'1','3')
    else if ((j mod 2)=1) then
    begin
      AddValue(j,'0','4');
      A[j,0]:='2'; //補2
      A[j,32]:='2';//補2
    end
    else
      AddValue(j,'1','5');
  Inc(j);
  until j>31 ;
 
end;    procedure TForm1.AddValue(j:Integer;str1,str2:string);
var
  i:Integer;
begin
  try
    for i:=0 to ((32)div 2) do
    begin
      A[j,i*2]:=str1;
      A[j,i*2 1]:=str2;
    end;
  except
    showmessage('AddValue error')
  end;
end;

//不知您的數值有何規則..?! 小弟是依您給的數值..自己改的..不知是否正確?!.. 131313... //the first line 2040404.. // (line mod 2)=1 //行號除2取餘數 ..餘1 15151515..// (line mod 2)=0 //行號除2取餘數 ..餘2 .. 13131313.. //the last line // 小弟也很菜..所以也不太懂c 語法哩... 多多指教...多多指教...

用這個方法您試試看 int a[33][33]; int x,y; for(y=0;y<=32;y ) { for(x=0;x<=32;x ) { if( (y%2)==1 && (x%2)==0) a[y][x]=4; // 一定要在 a[x][y]=2 之前 if( (y%2)==0 && (x%2)==1) a[y][x]=5; // 一定要在 a[x][y]=3 之前 if( (y%2)==1 && (x%2)==1) a[y][x]=0; if( (y%2)==0 && (x%2)==0) a[y][x]=1; if( (x==0 || x==32) && (y%2)==1) a[y][x]=2; if( (y==0 || y==32) && (x%2)==1) a[y][x]=3; } }

感謝meta大大，以後有機會一定給分！ 感謝wu-eric大大！