首页    新闻    群组    人才    下载    博客    代码贴    论坛
代码贴随便看看Diff
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-01-15 10:36:10
1