ライブラリにあるFormに値をSet


JUN  2010-03-10 20:43:47  No: 37977  IP: [192.*.*.*]

ちょっと伝えづらく解りづらいかもしれませんが、よろしくお願いします。

ライブラリにFormを作成してそのFormを各Plojectから使用したいと考えています。
ライブラリにあるLibForm.pasには多くの数値やコメントを書く場所があり、各Ploject毎に内容の違うものを数値やコメントにいれていきたいと考えています。

現在考えているのは、LibForm.pasに関数Setを用意して、
そのSetの引数を
Set(Def1、Def2、Def3、Def4、Def5:Integer;
    Float1、Float2、Float3  :Double;
    Comment1、Comment2、Comment3:String;);
としています。それをかくPlojectでセットしてあげます。

あまりに引数が多いのでどうかと思うのですが。

またもう一つの方法として、
各Plojectで
  LibForm  := LibForm.Create(nil);
  LibForm.Def1  :=  2;
  LibForm.Def2  :=  5;
       .
       .
       .
  LibForm.Comment3 := 'Test';

とする方法です。
どちらも何か手間を感じますし、普通ライブラリに置いといてこういったやりかたってどうなんでしょうか?

またわからないことはCreateしたものをどのタイミングでFreeにしてあげるかよくわからないです。これを値をセットしたあとFreeにしてしまうとLibFormの画面が閉じてしまういますし。
PlojectをDestroyのときにFreeにする感じですかね?なんか変なこと聞いてますかね...。初心者ですいません

みなさんはこういった状況でどのように作成しますか、意見聞かせてください。
よろしくお願いします。

編集    削除