Здравствуйте! Как получить вывод из Dll в Edit ?
Код:
library dll;
uses
SysUtils,
dialogs,
Classes;
{$R *.res}
procedure mas;stdcall; export;
var pin :array [1..15] of integer;
i : integer;
st: string;
begin
randomize ;
st:='';
for i:= 1 to 15 do
pin[i]:= random(10);
for i:= 1 to 15 do
st:= st + inttostr(pin[i]);
end;
exports mas;
begin
end.