editで指定したlabelに表示するには？

解決

いも鉄 2008-06-01 02:52:49 No: 30834

WindowsXP
delphi 6
とても安直に考えて、作りはじめたのですが、editで指定したlabel.captionにデータを入れることが出来ず、質問させていただきます。

edit２つに、labelを複数貼り付けたフォームで、edit1で入力したラベル名にedir2で入力したデータを入れ表示したいのですが、私の頭では、if文をラベルの数だけ書いて、同じ名前のラベルに入れる・・・

if edit1.text=label1.name then label.caption:=edit2.text;
・
・
100個ラベルがあったら、if文を100書くのか、としか思い浮かびません。
もっといい方法があると思いますが、勉強不足の為、どなたか、アドバイスをお願いいたします。

みんみん 2008-06-01 04:18:34 No: 30835

いろいろ方法はあると思いますが、
こんなのはどうでしょう？

FindComponentでEdit1のTextから同じNameを持つTLabelを取得しています。

(FindComponent(Edit1.Text) as TLabel).Caption :=Edit2.Text;

いも鉄 2008-06-01 04:58:48 No: 30836

みんみんさん、有難うございました。
100行が1行になりました。
私の思いつきより、遥かにいい方法だとです。
FindComponent、勉強させていただきました。

とても良いアドバイス有難うございました。