загрузка библиотеки DLL

[s2dentishe]

Добрый день. Такая проблема, загрузка происходит, а вызов процедуры производит к ошибке
вот текст библиотеки
library Kodirovanie;

{ Important ... }

uses
SysUtils,
Classes;
Type
TmasS=array[1..255,1..255] of char;
var
masS:TmasS;
function Kodirovka(text,parol:String):String ; StdCall;
var
i, schet: integer;
begin
schet:=1;
for i:=1 to Length (text) do begin
if schet>length(parol) then schet:=1;
text[i]:=masS[(ord (parol[schet])),ord(text[i])];
schet:=schet+1;
end;
result:=text;
end;
function Dekodirovka(text,parol:String):Stri ng; StdCall
var
i,j, schet: integer;
begin
schet:=1;
for i:=1 to Length (text) do begin
if schet>length(parol) then schet:=1;
for j:=1 to 255 do begin
if masS[(ord (parol[schet])),j]=text[i] then begin text[i]:=masS[1,j];break; end;
end;
schet:=schet+1;
end;
result:=text;
end;

exports
Dekodirovka, Kodirovka;

{$R *.res}

begin
end.

вот код в программе
Type
TmasS=array[1..255,1..255] of char;
var
Form1: TForm1;
masS:TmasS;
H: THandle=0;
Kodirovka: function(text,parol:String):String; StdCall;
Dekodirovka: function(text,parol:String):String; StdCall;
...
...
...
procedure TForm1.Button1Click(Sender: TObject);
var
parol_v:string;
begin
parol_v:=Form1.Edit1.Text;
Form1.Memo1.Text:=Kodirovka(Memo1.T ext,parol_v);//эта строчка вызывает ошибку
end;

Вот ошибка
Project Project1.exe raised exception cIass EInvaIidPointer with message 'InvaIid pointer operation' ,
Process stopped. Use Step or Run to continue.

Вот текст динамической загрузки библиотеки
H:=LoadLibrary('Kodirovanie.dll');
if H<>0 then
begin
Kodirovka:=GetProcAddress(H,'Kodiro vka');
Dekodirovka:=GetProcAddress(H,'Deko dirovka');
end
else ShowMessage('Не удалось загрузить DLL!');

[Пепел Феникса]

вы читали комментарий пустой ДЛЛ?
про тип string

[s2dentishe]

А можете посоветовать, что делать в этой ситуации?

[Пепел Феникса]

либо PChar либо как там написано.

[s2dentishe]

Использую библиотеку BorlndMM
по выходу из приложения, после освобождения памяти происходит ошибка
"Исключение неизвестное программное исключение(0х0eedfade) в приложении по адресу 0x7c812a7b"

[AlexanderKs]

Через PChar:

library Kodirovanie;

{ Important ... }
...

function Kodirovka(text,parol:PChar):PChar ; StdCall;
...
begin
schet:=1;
  for i:=0 to Length(text) do begin
    ...
  end;
result:=text;
end;

function Dekodirovka(text,parol:PChar):PChar; StdCall
...
begin
schet:=1;
  for i:=0 to Length(text) do begin
    ...
  end;
result:=text;
end;

exports
Dekodirovka, Kodirovka;

{$R *.res}

begin
end.

// программа
Type
TmasS=array[1..255,1..255] of char;
var
...
Kodirovka: function(text,parol:PChar):PChar; StdCall;
Dekodirovka: function(text,parol:PChar):PChar; StdCall;
...

procedure TForm1.Button1Click(Sender: TObject);
var
parol_v:string;
begin
...
Form1.Memo1.Text:=Kodirovka(PChar(Memo1.Text),PChar(parol_v));
end;

[s2dentishe]

PChar мне не подойдет. Там свои нюансы. Подскажите лучше какие процедуры использовать для работы с памятью при загрузке и выгрызет DLL из модуля ShareMem

[s2dentishe]

Подскажите, пожалуйста, как изменить менеджер памяти