动态连接(100分)

创建动态连接的步骤；<br><br>调用步骤；

你有什么连接阿？说清楚啊！ADO？

connc:='Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase Password=mypass;Data Source=%sDB/Client.mdb;Persist Security Info=true'; &nbsp;//带密码<br>sFilePath:=ExtractFilePath(Application.ExeName);<br> &nbsp;try<br> &nbsp; &nbsp; //本地数据库连接<br> &nbsp; &nbsp;ADOConnLocal.Connected := false;<br> &nbsp; &nbsp;ADOConnLocal.ConnectionString:='';<br> &nbsp; &nbsp;ADOConnLocal.ConnectionString:=format(connc,[sFilePath]);<br> &nbsp; &nbsp;ADOConnLocal.Connected := true;<br> &nbsp;except<br> &nbsp; &nbsp; Application.Terminate;<br> &nbsp;end;<br>动态连接数据库，不知道你要的动态连接是不是这个。

昏~~ <br><br>动态联接库的步骤

File | New | Others <br>选择 DLL Wizard 点OK.<br>即可，<br>里面怎么写，网上有很多源码可以参考。

能不能详细的步骤帮我写一下<br>如先写一个函数等

根据向导建立一个dll工程，然后给你一个例子，就是判断指定字符串最后字符是否为/，如果不是添加，然后返回。<br>library testdll;<br>uses<br> &nbsp;SysUtils,<br> &nbsp;Classes;<br>Function Mystring(schar)char;<br>var<br> &nbsp;st:string;<br>begin<br> &nbsp;st:=strpas(s);<br> &nbsp;if st[length(s)]&lt;&gt;'/' then<br> &nbsp; st:=st+'/';<br>result:=pchar(st);<br>end;<br>exports<br> Mystring;<br><br>begin<br>end.<br><br>//调用<br>Function Mystring(schar)char;external 'testdll.dll';<br>edit2.Text :=strpas( mystring(pchar(edit1.Text )));

接受答案了.