請教一個自訂程序的問題 |
|
尚未結案
|
|
chateau_frank
一般會員   發表：20 回覆：32 積分：10 註冊：2005-07-07 發送簡訊給我 |
各位大大晚安
請問一下，小弟該如何自訂一個程序來節省重覆的程式碼，因我試了幾次都是有問題，原程式碼如下：
procedure TForm1.ComboBox1Change(Sender: TObject); begin .... DBEdit1.DataField := ''; DBEdit2.DataField := ''; DBEdit3.DataField := ''; DBEdit4.DataField := ''; DBEdit5.DataField := ''; DBEdit6.DataField := ''; DBEdit7.DataField := ''; DBEdit8.DataField := ''; DBEdit9.DataField := ''; DBEdit10.DataField := ''; DBEdit11.DataField := ''; DBEdit12.DataField := ''; DBEdit13.DataField := ''; DBEdit14.DataField := ''; DBEdit15.DataField := ''; DBEdit16.DataField := ''; DBEdit17.DataField := ''; DBEdit18.DataField := ''; DBEdit19.DataField := ''; DBEdit20.DataField := ''; DBEdit21.DataField := ''; DBEdit22.DataField := ''; DBEdit23.DataField := ''; DBEdit24.DataField := ''; DBEdit25.DataField := ''; DBEdit26.DataField := ''; DBEdit27.DataField := ''; DBEdit28.DataField := ''; DBEdit29.DataField := ''; DBEdit30.DataField := ''; DBEdit31.DataField := ''; DBMemo1.DataField := ''; .... end;總共有三個程序都要寫到以上的程式碼，請問大大該如何節省，來共用一個自訂程序，感謝您。(全域或區域均請幫忙指導一下)。 |
|
h@visli
資深會員   發表：103 回覆：429 積分：431 註冊：2004-02-13 發送簡訊給我 |
...... private
{ Private declarations }
procedure ReSetDBControls; //定義一個共用過程
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ReSetDBControls;
var
i: integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TDBEdit then
TDBEdit(Components[i]).DataField := '';
DBMemo1.DataField := '';
end; procedure TForm1.Button1Click(Sender: TObject);
begin
ReSetDBControls;
end; procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ReSetDBControls;
end; ...... ----------------------------
於Delphi K.Top之上
博采眾家之長, 奉獻綿薄之力
--------------------------- 發表人 - h@visli 於 2005/08/01 18:51:07
------
------------------------ 博采眾家之長,奉獻綿薄之力 ------------------------ |
|
chateau_frank
一般會員 發表：20 回覆：32 積分：10 註冊：2005-07-07 發送簡訊給我 |
發表時間：2005-08-01 17:50:06
IP:211.20.xxx.xxx 未訂閱
系統時間：2024-04-20 22:07:27
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |