B
Baton77
Написал DLL
В программе вызываю так :
Под дельфи отказывается работать - вместе виснут.
А без дельфи работает, но выскакивает ошибка "Invalid pointer operation."
Что делаю не так?
Код:
library replace;
uses
ShareMem, SysUtils, Classes;
{$R *.res}
function StringReplaceAll (text,byt,mot : string ) :string;
...
...
end;
function Vasya2Petya (text : string) : string;
begin
text := stringreplaceall (text,'Вася','Петя');
result := text;
end;
exports
Vasya2Petya;
begin
end.
В программе вызываю так :
Код:
implementation
{$R *.dfm}
function Vasya2Petya (text : string) : string; external 'replace.dll';
...
...
procedure TForm1.PreviewBtnClick(Sender: TObject);
const BR = '<br>';
var
plats : integer;
begin
for plats:=0 to Memo.Lines.Count-1 do
ConvertMemo.Lines.Add(Vasya2Petya(Memo.Lines.Strings[plats]+ BR));
ConvertMemo.Lines.SaveToFile('Program/Temp.html');
ConvertMemo.Clear;
Form4.Show;
end;
Под дельфи отказывается работать - вместе виснут.
А без дельфи работает, но выскакивает ошибка "Invalid pointer operation."
Что делаю не так?