在此举个简单的例子: //DELPHI procedure Tyn.save2(data: olevariant; out errcount: integer); begin dspunit.ApplyUpdates(data, 0, errcount); end; //COM procedure Tyn.save(data: OleVariant; out errCount: SYSINT); begin save2(data, errcount); end; 这个例子的价值: 把以前的两层向多层移植的话,可以保留原来的业务类。 但数据类型无疑要进行转换。 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论