Код:
procedure PaxWriteStr(s:string);
begin
showmessage(s);
end;
zagruzka
.....
fPaxCompiler:=TPaxCompiler.Create(nil);
RegisterHeader(0, 'procedure WriteStr(s : string);', @PaxWriteStr);
fPaxCompiler.Reset;
fPaxPascalLanguage:=TPaxPascalLanguage.Create(nil);
fPaxCompiler.RegisterLanguage(fPaxPascalLanguage);
fPaxCompiler.AddModule('mainmodule',fPaxPascalLanguage.LanguageName);
fPaxCompiler.AddCodeFromFile('mainmodule',filname);
result:=fPaxCompiler.Compile(PaxProgram1);
scriptloaded:=result;
.....
script
.....
writestr('shillen saint profile');
.....
при любых параметрах показывает пустой бокс, строка попадающая в функцию всегда = ''