Q
qj_chen
Unregistered / Unconfirmed
GUEST, unregistred user!
在正常运行的DLL里加入以下函数，退出程序时出错（不管有没有运行过）：“Runtime error at xxxxxxx.”。我都加了Sharemem了，请高手指点！
function MakeDecimalDigits(Str: string): string;
begin
Result := FormatCurr('0.00', StrToCurr(Str))
end;
function MakeDecimalDigits(Str: string): string;
begin
Result := FormatCurr('0.00', StrToCurr(Str))
end;