uses
  SysUtils,
  Classes;const
    constr='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=college;Datasource=%s';function constring(ip:string):string;stdcall;
//var
 //   con:string;
begin
    Result:=Format(constr,[ip]);end;
{$R *.res}  exports
    constring;
begin
end.
各位大虾,,  看下这个有错吗?