請教各位前輩： 小弟有個unit1(沒有form)為用來放置共用參數， 但是如果要加入共用的procedure 或 function要放在此單元的話不知要寫在哪?? unit unit1; interface var query1_where:string; serial_n:string; exportkind:boolean; expo_rv:array [1..5] of integer; implementation end.

------
ivankuo

unit unit1;
  
interface
  
宣告放在 interface 區段下, ex:
  procedure ProcName(param1: string);
  
var
   query1_where:string;   
   serial_n:string;       
   exportkind:boolean;  
   expo_rv:array [1..5] of integer;  
  
implementation
  
實作放在 implementation 區段下, ex:
procedure ProcName(param1: string);
begin
  // do something
end;
   
end.

-- Believe the unbelievable. 發表人 - hagar 於 2002/12/18 17:38:13

我原本也是這樣寫，只是按shift ctrl c卻不會自己產生實作 害我覺得奇怪，原來實作部分都要手動自己去加才行!! 謝啦~~~~

------
ivankuo