请教高手有关dll问题(只剩下30分） (30分)

为什么执行这个dll出错（程序执行其他dll正常）
library code;
uses
SysUtils, Classes;
{$R *.RES}
function EnDeCode(const value:String):String;stdcall;
var
CharIndex : Integer;
ReturnValue : String;
begin
ReturnValue := '';
for CharIndex := 1 to Length(Value)do
begin
ReturnValue := ReturnValue + chr(NOT(ord(Value[CharIndex])));
end;
Result := ReturnValue;
end;

exports
EnDeCode;
begin
end.

你用了string类型做参数和返回值，ShareMem必须放在uses的第一行。
你包含了没有？
要不就改用Pchar类型。