DLL:
| Код |
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."
Что не так? |
aktuba, ага) вчера ловили AV... в конце рабочего дня) весь моск сломали. и как ты думаешь что??? неинициализированная локальная переменная четырьмя вызовами выше... %)