B
blackfish99
Unregistered / Unconfirmed
GUEST, unregistred user!
library thedate;
uses
SysUtils,
Classes;
var mydatechar;
function makeitaday(S:integer)char;stdcall;
var thedate:array[0..20] of char;
begin
GetMem(mydate, 200);
if s=1 then thedate:='Sunday ';
if s=2 then thedate:='Monday ';
if s=3 then thedate:='Tuesday ';
if s=4 then thedate:='Wednesday ';
if s= 5 then thedate:='Thursday ';
if s = 6 then thedate:='Friday ';
if s= 7 then thedate:='Saturday ';
strpcopy(mydate,thedate);
makeitaday:=mydate;
end;
exports makeitaday;
begin
end.
uses
SysUtils,
Classes;
var mydatechar;
function makeitaday(S:integer)char;stdcall;
var thedate:array[0..20] of char;
begin
GetMem(mydate, 200);
if s=1 then thedate:='Sunday ';
if s=2 then thedate:='Monday ';
if s=3 then thedate:='Tuesday ';
if s=4 then thedate:='Wednesday ';
if s= 5 then thedate:='Thursday ';
if s = 6 then thedate:='Friday ';
if s= 7 then thedate:='Saturday ';
strpcopy(mydate,thedate);
makeitaday:=mydate;
end;
exports makeitaday;
begin
end.