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

名前

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

本文 記入忘れがありました for i:=0 to (ColACount-1) do begin //記入忘れ k=Col[i].Col; //記入忘れ ColCountB[k]:=ColCountB[k]+1 ; //記入忘れ end; for i:=0 to 255 do SetLength(ColB[i], ColCountB[i]+1); for i:=0 to 255 do ColCountB[i]:=0; for i:=0 to (ColACount-1) do begin k:=ColA[i].Col; ColB[k][ColCountB[k]]:=ColA[i];//代入 ColCountB[k]:=ColCountB[k]+1; end;