delphi 使用ado 读写 vfp或者dbase4的数据库
tableDB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(dir) +';Extended Properties=dBase 5.0;Persist Security Info=False;';
tableDB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(dir)+';Extended Properties=dBASE IV;User ID=Admin;Password=;';
使用ado读取dbf的时候，出了一些问题，使用上面的连接串，在写dbf文件的时候，中文的数据在保存的时候就成了乱码，但是在表格显示的时候却是正常的，数字或者字母没有问题。
用下面的连接串在写中文数据的时候没有问题，不过需要注意有些客户电脑没有装vfpodbc驱动，在打包安装程序的时候，最好一块打包安装。
tableDB.ConnectionString:='Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB='+ExtractFilePath(dir)+';SourceType=DBF;';
相关文档：
近来发现一个Delphi莫名其妙的bug，当使用SetOptionalParam时，不能使用一连串数字的字符串，如'101'，注意，是带引号的。在SaveToFile时，就会出现'Invalid field type'的异常，真是百思不得其解！连'001'这种串也不行，去掉引号，直接按数字赋值，则正常。
procedure TForm1.Button1Click(Sender: TObject);
var
......
今天心血来潮在自己的电脑上安装了mysql-5.1.41-win32和mysql-connector-odbc-5.1.6-win32。以前，我曾经尝试使用ＤＥＬＰＨＩ６去联接ＭＹＳＱＬ但是在网上找很多资料都不很好用；今天突然也想起这个问题就干起回来了。
１. 建立数据库
use mysql;
drop database myDB;
create database ......
//Delphi部分
//回调函数定义
type TOnMyCallBack = procedure(data:pchar; id:Integer);stdcall;
//DLL中的导出函数声明
procedure StartCall(param: TOnMyCallBack(data:pchar; id:Integer);stdcall;
begin
...
...
end;
&n ......
技术交流,DH讲解. 哈哈,我承认我是标题党.
最近看天书夜读里面是对C语言的代码反汇编,不错,可惜Delphi没有这样的书,那我们自己动手吧.
首先进入For循环了. Function TestFor( a, b: Integer ): Integer ;
Var
I: Integer ;
Begin
Result := a + b ;
For I := 0 To 49 Do
Result := Result + I ......
