請教一下 我已經在public下面做了這樣的宣告 cyclemax:integer; 然後我在var下有做這樣的宣告 var FormMission: TFormMission; procedure cyclemaxdo; 以及在{$R *.DFM} 之下開始作此procedure procedure cyclemaxdo(); //計算有不完整的cycle begin if cyclemax > 0 then begin if stopstep=15 then step15(); end; end; 而此procedure則是在 procedure TFormMission.Button1Click(Sender: TObject); begin numberstep(); wrokday(); cycledo(); cyclemaxdo();; end; 這個cyclemax只有在cyclemaxdo()度過 想問一下 這樣的程式 當我再作編譯的時候 他告訴我 [Error] UFormMission.pas(112): Undeclared identifier: 'cyclemax' 而第112行 正是 if cyclemax > 0 then 這一行 請教一下 我的程式流程 是哪裡寫錯了呢 謝謝

你的 cyclemax:integer; 要寫在下面 如: var FormMission: TFormMission; cyclemax:integer; procedure cyclemaxdo; 因為你的 cyclemax 是宣告在 Form 裡. 另外一種方法. 你可以把 if cyclemax > 0 then 改成 if FormMission.cyclemax > 0 then