procedure呼び出し時のエラーを回避するには? (ID:36995)

名前

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

本文 //自己解決しました(^^) procedure TForm1.Coloring(var c:array of Tcolor); var i,j,k,m:integer; const V:array[1..3] of byte=(250,170,200); begin m:=1; for i:=1 to 3 do for j:=1 to 3 do for k:=1 to 3 do begin c[m]:=RGB(v[i],v[j],v[k]); if m=high(c) then exit; inc(m); end; end; //if m=high(c) then exit; //を入れるだけの単純なことでした。 //板を汚す結果になりました。申し訳ありません。