我想成批對edit的text進行賦值，code大概如下： edtTtTestNo.text:=qyStelTst['TestNo']; edtTtSpec.text:=qyStelTst['Spec']; edtTtFurnNo.text:=qyStelTst['FurnNo']; edtTtC.text:=qyStelTst['ChemC']; edtFtTestNo.text:=qyStelTst['TestNo']; edtFtSpec.text:=qyStelTst['Spec']; edtFtFurnNo.text:=qyStelTst['FurnNo']; edtFtC.text:=qyStelTst['ChemC']; ...... 可以看到除了edit控件的名字edtXXTestNo....中的XX不一樣而已，其他code都是重復的,我想寫一個含有一個參數XX的procedure，只要代入XX即可，請問應該如何轉化？我試過用as,但是沒有成功，謝謝！

可以參照 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=69749 用FindComponent

手痒，方法如 class="code"> procedure TForm1.GetText(str:string);//自定义一个过程 var MyEdit: TEdit; begin MyEdit := FindComponent('edt' str 'TestNo') as TEdit; if MyEdit <> nil then MyEdit.Text := qyStelTst['TestNo']; MyEdit := FindComponent('edt' Str 'Spec') as TEdit; if MyEdit <> nil then MyEdit.Text :=qyStelTst['Spec']; MyEdit := FindComponent('edt' Str 'FurnNo') as TEdit; if MyEdit <> nil then MyEdit.Text :=qyStelTst['FurnNo']; MyEdit := FindComponent('edt' Str 'C') as TEdit; if MyEdit <> nil then MyEdit.Text := qyStelTst['ChemC']; end; procedure TForm1.Button1Click(Sender: TObject); //调用上面过程 begin GetText('Tt'); GetText('Ft'); end; 参考看看 <> =============================== 为什么经过多年以后，得失的过程如此冷漠 ===============================

谢谢deity，我也已经用wameng大大的方法实践出来了，分数还是给他吧呵呵，不好意思哦。