掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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; //を入れるだけの単純なことでした。 //板を汚す結果になりました。申し訳ありません。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.