procedure  n_con_g(nyear:integer;nmonth:integer;nday:integer;niyear:pinteger;nimonth:pinteger;niday:pinteger)
                   stdcall;external 'd:\nongli.dll';
procedure  g_con_n(syear:integer;smonth:integer;sday:integer;niyear:pchar;nimonth:pchar;niday:pchar)
                   stdcall;external 'd:\nongli.dll';
procedure TForm1.Button4Click(Sender: TObject);
var
  syear: array[0..10]of char;
  smonth:array[0..10]of char;
  sday:  array[0..10]of char;
  iyear: integer;
  imonth:integer;
  iday:  integer;
begin
  iyear:=0;
  imonth:=0;
  iday:=0;
  n_con_g(1945,5,5,@iyear,@imonth,@iday);
  showmessage(inttostr(iyear)+'/'+inttostr(imonth)+'/'+inttostr(iday));
  g_con_n(1946,06,14,@syear,@smonth,@sday);
  showmessage(syear+smonth+sday);
end;