我试图将Advantage数据库文档中的示例代码翻译为Delphi,但似乎无法正确声明变量,从varType开始,也无法弄清楚MAX_STR_LEN(常量、函数还是其他什么?)。
以下是示例代码:
UNSIGNED32 DoDates( void )
{
ADSHANDLE hTable;
UNSIGNED16 usLength;
UNSIGNED8 aucDOB[MAX_STR_LEN+1];
...
usLength = MAX_STR_LEN+1
AdsGetDate( hTable, "DOB", aucDOB, &usLength );
...
}
我尝试的Delphi代码是:
procedure TForm1.fixARInvoiceEntryHeaderDates;
var
tableHandle:ADSHandle;
aucDOB:pansichar;
usLength:punsigned16;
begin
...
AdsGetDate(
tableHandle,
'inv_date',
aucDOB,
&usLength);
...
end;
TDataSet
的子类?这使得您可以使用普通的表格或查询操作,并使用Table.FieldByName('DOB').AsDateTime
访问字段。它们可以从Advantage网站免费下载。 - Ken White