我要用delphi调一个vc++的DLL
在vc里的声明为：int myfunc(char const *, int, class CString &)
我的delphi source：

type TDLLFunc = function (const ss: PChar; i: integer; var param2: string): boolean;
{assign a nil - not loaded function}
const DLLFunc: TDLLFunc = nil;
DLLName = 'my.dll'; {handle of loaded dll}
procedure TForm1.Button1Click(Sender: TObject);
var DLLHandle: THandle;
s:string;
begin { load a library }
DLLHandle := LoadLibrary(DLLName);
if (DLLHandle < HINSTANCE_ERROR) then
raise Exception.Create(DLLName ' library can not be loaded or not found. ' SysErrorMessage(GetLastError));
try { load an address of required procedure}
@DLLFunc := GetProcAddress(DLLHandle, 'myfunc');
{if procedure is found in the dll}
if Assigned(DLLFunc) then
DLLFunc('dddddddddddddddddddd', 2, s);
finally {unload a library}
FreeLibrary(DLLHandle);
end;

end;
问题是Assigned(DLLFunc) 失败，我的接口声明type TDLLFunc = function (const ss: PChar; i: integer; var param2: string): boolean;
有问题吗？ 请不吝赐教

------
wxs

你的語法錯誤，用搜尋，已有答案