掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
procedure呼び出し時のエラーを回避するには? (ID:36994)
名前
ホームページ(ブログ、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]); inc(m); end; end; //------ //上記のprocedure Coloringで27個のTcolor値を配列c[]で得ます。 //このprocedureを呼び出すときは、 procedure TForm1.FormCreate(Sender: TObject); var i:integer; Mycolor:array[1..27] of Tcolor begin Coloring(Mycolor); end //------ //とする訳ですが、 //今、Tcolor値を5個必要なとき、 procedure TForm1.FormCreate(Sender: TObject); var i:integer; Mycolor:array[1..5] of Tcolor begin Coloring(Mycolor); end //として呼び出しますと、当然にエラーとなります。 //エラーを回避するには、procedure Coloringをどのように記述すればよいでしょうか？ //(WinXp,D7-pro)
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.