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;
......................
阅读全部
|
wp231957
贴于 2013年1月15日 10:36
hide
bbsi