配列間のコピー (ID:6440)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Halbow です。 いや、どのようにコピーしたいのかがわかりません。 二次元配列を行と列としてみた場合、一次元配列をどのように行と列にコピー したいのか不明です。動かないなら、動かないコードを示すことも重要です。 以下の例では最初の行の列に代入しています。 procedure TForm1.Button1Click(Sender: TObject); var Parray :array of TPoint; PParray :array of array of TPoint; i:integer; begin SetLength(Parray,10); for i := 0 to 9 do Parray[i] := Point(i,i); SetLength(PParray,10,10); // 列に代入 for i := 0 to 9 do PParray[i,0] := Parray[i]; Label1.Caption := Format('PP[7,0] = [ %d, %d]',[PParray[7,0].x,PParray[7,0].y]); end;