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.