我想將幾個form共有的function 合而為一,放在unit那處 如: Unit abc procedure InitForm(FormName: TForm); begin FormName.setHeight(100); ... end; 在其它form會加上uses abc;及.. TABCForm.FormCreate(Sender: TObject); begin InitForm(abcForm); end; 每張form都會有一個procedure叫做setheight(integer), 但有compile error? 它說form沒有underclare到...那應該怎麼辦? 我想做到pass一張form去共用的function,然後呼叫每張form都共有的function,因為這樣我就不用每張form都寫同一個function,請問應該怎樣做呢? 謝

BorlandUser您好    共用函式放在獨立的單元

unit uCommUtils
  procedure setheight(params...);

form1 uses uCommonUtils form2 uses uCommonUtils . . 在每個form的implementation區段uses這個uCommonUtils

但是那個共用function 如setheight可以用到每張form的variable或function嗎? 其實情況是這樣的... 每張form都有可以提供add/update/delete等mode...不過不同user會有不同的情度的限制,所以我想當user進入某一張form時, 設定3個變數(add/update/delete)為true或false.因為每張form都會做一個function就是set這3個變數的值,而那3個變數是private,所以我會在每張form都有相對的public set function,所以我想做到pass一張form去某一個function,經過那function 檢查這個form可以做到那些mode,然後set 回那些變數為true/false... 所以我想知點做? 謝!幫忙

BorlandUser您可用下面的概念去達到您的需求 在共用函式單元宣告及實作

procedure SetFormControl(Sender:TForm;authority:string)
var
  MyForm:TMyForm;
begin
  if Pos('A',authority)>0 then //擁有某個權限
  begin
    if Sender is TMyForm then (Sender as TMyForm).MyOtherControl.Visible:=True;
  end;
  ....
end;

在vb裏,只要pass一個me(form name)去到一個global module的function裏,如 In MainForm: Call FindRight(me); In Global Module: function SetAddMode(frm as form, status as boolean) if frm.getRight() = 'Normal' then frm.SetAddMode(true) else frm.SetUpdateMode(false) end if end function Here is the VB Code, it can easy to pass the hold form and than call the form's function if the form is public its "property". So, how can I implement the same technology in the Delphi??

係delphi裏面,有冇好似c 那樣有pass by value和pass by reference? 因為如果我將一個variable psss入去個function裏面,但係無論個value係個function裏面怎樣改,此終都不會改變那value,那有什麼方法可以連那value也改變呢?如: procedure Test; var abc: integer; begin abc := 0; ChangeValue(abc); end; procedure ChangeValue(intTest: Integer); begin intTest := 10; end; At the final, the value of abc still is 0, so, how can I change it to 10 after passs the it to the procedure ChangeValue Thank You very much

引言: 係delphi裏面,有冇好似c 那樣有pass by value和pass by reference? 因為如果我將一個variable psss入去個function裏面,但係無論個value係個function裏面怎樣改,此終都不會改變那value,那有什麼方法可以連那value也改變呢?如: procedure Test; var abc: integer; begin abc := 0; ChangeValue(abc); end; procedure ChangeValue(Var intTest: Integer);//對於IntTest的改變會反映到呼叫它的變數 begin intTest := 10; end;

BordLandUser 你好 引言：我想做到pass一張form去共用的function,然後呼叫每張form都共有的function,因為這樣我就不用每張form都寫同一個function,請問應該怎樣做呢? 如果是每張的話，我會建議你可以建立BaseForm把每張Form共同Function寫進去,在適當的事件中觸發，你幾乎可以不用再自行呼叫共用的Function 發表人 - chance36 於 2004/04/06 18:44:29