在一個Unit中寫了好幾個Class 後來發現這些Class都需要用到ADOConnection 於是共用DataModule的Connection 能不能不用DataModule的Connection 將ADOConnection獨立在這個Unit中使得這些Class可以共用 感謝這個網站

------
Signed by Edward Chen

Hi Edward Chen 你好: 假設Unit4是被共用的Unit

unit Unit4;    interface    Uses SysUtils, ADODB;    var
   ADOConn : TADOCOnnection;    function  GetADOConn : TADOConnection;
procedure FreeADOConn;    implementation    function  GetADOConn : TADOConnection;
begin
   if not Assigned(ADOConn) then begin
      ADOConn := TADOConnection.Create(nil);
      ADOConn.ConnectionString := 'Provider=SQLOLEDB.1;Password=xxx;Persist Security Info=True;User ID=ddd;Initial Catalog=xxxxx;Data Source=xxxxx';
      ADOConn.LoginPrompt := False;
   end;
   Result := ADOConn;
end;    procedure FreeADOConn;
begin
   if Assigned(ADOConn) then
      FreeAndNil(ADOConn);
end;    end.

其他Class就可直接下Unit4.GetADOConn來取得共用的TADOConneciton 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.