帮忙修改,谢谢

Question

var
   Client:TClientDataSet;
   Ds:TDataSource;
   dataname:String;
begin
try
dataname:=abcd  \\ 可动态指定
client:=TClientDataSet.Create(nil);
client.Name:=dataname;
client.RemoteServer:=data.DC;
client.ProviderName:=dataname;
DS:=TDataSource.Create(nil);
Ds.Name:=dataname+'s';
ds.DataSet:=client;
client.Open;
except
//
end;
end;
//我现是想要把这段代码写在一个公共单元里,在别的地方都的使用,
请问这怎么写呢,谢谢

Answer 1

procedure xxx;
var
   Client:TClientDataSet;
   Ds:TDataSource;
   dataname:String;
begin
try
dataname:=abcd  \\ 可动态指定
client:=TClientDataSet.Create(nil);
client.Name:=dataname;
client.RemoteServer:=data.DC;
client.ProviderName:=dataname;
DS:=TDataSource.Create(nil);
Ds.Name:=dataname+'s';
ds.DataSet:=client;
client.Open;
except
//
end;
end;
放到随便公共单元的interfase里面，别的地方uses这个单元，直接xxx就可以了

Answer 2

你又没说要返回什么东西:)function xxx:TClientDataSet;
begin
  //....
  result:=Client;
end;