関数等を外部ファイル化にあたり (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; あと『外部ファイル化』は『ユニット分割』『ユニットを分ける』という表現のほうが一般的ですね、