- 博客(2)
- 收藏
- 关注
原创 怎么样取一个月的最后一天。
function LastDayCurrMon: TDate; begin result := EncodeDate(YearOf(Now),MonthOf(Now), DaysInMonth(Now)) ; end;
2008-01-18 13:57:00 493
原创 怎样从ADO Query中的数据导出到HTML?
首先新建一个FORM在上面放一个Tedit (name:edit1)、TWebBrowser (name: WebBrowser1)、TMemo (name: Memo1)、TButton (name: Button1)代码如下:procedure TForm1.FormCreate(Sender: TObject);var ConStr: widestring;beginConStr :
2008-01-13 19:17:00 528
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人