掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
同じ処理を関数にまとめるには？ (ID：6466)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Delphiで，ソフト作りに初挑戦しています。 まだローマ字もわからない我が子に，ローマ字で文字入力を させるためのソフトです。 Formには，キーボードのボタン用にPanelを２６個，StringGridに 五十音（まだ増える）の表，Editを３個をのせてあります。 procedure TForm1.StringGrid1MouseMove に ・・・・・・・・・・・・・・・・・・・・・・・ Case RC of 9: begin Case CC of 0: begin for i := 1 to 26 do // ここから begin Panels[i].color := clBtnFace; end; Panels[1].color := clYellow; // ここまで Edit2.Text := 'a'; Edit3.Text := 'A'; end; 1: begin for i := 1 to 26 do // ここから begin Panels[i].color := clBtnFace; end; Panels[2].color := clYellow; // ここまで Edit2.Text := 'i'; Edit3.Text := 'I'; end; 「ここから」「ここまで」の部分を，１つの関数にまとめたい のですが，どうしたらいいのでしょうか。 私は次のように自己流(VBA風)でやったら，「書き込み違反」の エラーになりました。 procedure TForm1.IroHenko1(Pi: integer); var i : Integer; begin for i := 1 to 26 do begin Panels[i].color := clBtnFace; end; Panels[Pi].Color := clYellow; よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.