摘要：
procedure CreateVarArrayFromDataset(var varResultSet: OleVariant; ADataset : TDataset); var m : Integer; nRecords, nColumns, nCurRec : Integer; begin nRecords := -1; nColumns := -1; try { Create the array... } { Set size to 0..m-1 where m equals the number of columns. } nColumns := Max(0, A... 阅读全文
摘要：
DELPHI能够兼容COM的数据类型，反之，则不成立。在此举个简单的例子：//DELPHIprocedure Tyn.save2(data: olevariant; out errcount: integer);begin dspunit.ApplyUpdates(data, 0, errcount);end;//COMprocedure Tyn.save(data: OleVariant; out errCount: SYSINT);begin save2(data, errcount);end;这个例子的价值：把以前的两层向多层移植的话，可以保留原来的业务类。但数据类型无疑要进行转换。 阅读全文