DLL中自定义函数的问题
libarary testdll
uses ....
Procedure testdll(strTemp:PChar);stdcall;
Var
lstrname:String;
BEGIN
........
lstrname:=GetStr_4(strTemp)
.......
END;
Function GetStr_4(str_Temp:String):String;
Var
s:String;
BEGIN
.......
Result:=S;
END;
exports
TestDLL;
在DLL里面自定义函数GetStr_4 要怎么声明，才能调用啊
[解决办法]
library Project2;
uses
SysUtils,
Classes,
dialogs;
{$R *.res}
Function GetStr_4(ms:String):String;forward; // <-------------
Function TestDll(sTest:PChar):Boolean;Stdcall;
vAR
S:String;
BEGIN
S:=GetStr_4(sTest);
ShowMessage(s);
Result:=True;
end;
Function GetStr_4(ms:String):String;
begin
Result:=Copy(ms,0,2);
end;
exports
TestDll;
begin
end.
