Code:
library module_main;
uses
SysUtils,
Classes;
procedure outdata(name:pchar;id:longint);external 'db.dll' index 2;
procedure main();
begin
writeln('data from file "name" ');
outdata('name',3);
writeln(End of the data');
end;
exports main index 1;
begin
end.
Code:
procedure main();
begin
writeln('data from file "name" ');
writeln(End of the data');
outdata('name',3);
end;