E
elan
Unregistered / Unconfirmed
GUEST, unregistred user!
我有一段 c 代码，想翻成delphi，请大家帮忙。
1、这是c的函数声明
int __far __pascal GetVarNames(
const int handle,
int __far *numVars,
char __far * __far * __far *varNames, //这里我怎么也弄不好，返回不正确的字符串
int __far * __far *varTypes);
//这里也是
2、这是调用上面这个函数的例子
void func()
{
int fH;
/* file handle */
int error;
/* error code */
int numV;
/* number of variables */
int *typesV;
/* variable types */ //这儿delphi该怎么声明？
char **namesV;
/* variable names */ //这里也是，同上
...
error = OpenRead("bank.sav", &fH);
...
/* Get &
print variable names and types */
error = GetVarNames(fH, &numV, &namesV, &typesV);
//就是这里我不懂了
if (error == SP_OK)
{
int i;
for (i = 0;
i < numV;
++i)
{
printf("Variable name: %s, type: %d/n", namesV, typesV);
}
/* Free the variable names &
types */
FreeVarNames(namesV, typesV, numV);
}
}
请帮忙将以上代码弄成delphi，急！！谢谢
1、这是c的函数声明
int __far __pascal GetVarNames(
const int handle,
int __far *numVars,
char __far * __far * __far *varNames, //这里我怎么也弄不好，返回不正确的字符串
int __far * __far *varTypes);
//这里也是
2、这是调用上面这个函数的例子
void func()
{
int fH;
/* file handle */
int error;
/* error code */
int numV;
/* number of variables */
int *typesV;
/* variable types */ //这儿delphi该怎么声明？
char **namesV;
/* variable names */ //这里也是，同上
...
error = OpenRead("bank.sav", &fH);
...
/* Get &
print variable names and types */
error = GetVarNames(fH, &numV, &namesV, &typesV);
//就是这里我不懂了
if (error == SP_OK)
{
int i;
for (i = 0;
i < numV;
++i)
{
printf("Variable name: %s, type: %d/n", namesV, typesV);
}
/* Free the variable names &
types */
FreeVarNames(namesV, typesV, numV);
}
}
请帮忙将以上代码弄成delphi，急！！谢谢