掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
関数等を外部ファイル化にあたり (ID:149963)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ShowMのローカル変数frm1は初期化されないまま使われてますが、これが原因でエラーが発生してたりしませんか？ 普通はShowMのパラメータとして対象のフォームを渡すと思います。 ShowMを procedure ShowM(Form: TForm); var Memo: TMemo; begin Memo := Form.FindComponent('memo1') as TMemo; Memo.Text := '...'; end; としておいて、TForm1側では procedure TForm1.Button1Click(Sender: TObject); begin ShowM(Self); end; ってな感じで。あるいはMemo1そのものを渡すようにすればFindComponentもいりませんね。 procedure ShowM(Memo: TMemo); begin Memo.Text := '...'; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowM(Memo1); end; あと『外部ファイル化』は『ユニット分割』『ユニットを分ける』という表現のほうが一般的ですね、
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.