测试

class function TGIX4DataAccess.Instance: TGIX4DataAccess;
begin
  if not Assigned(GlobalDataAccess) then
    GlobalDataAccess := Self.Create;
  Result := GlobalDataAccess;
end;