delphi中application.processmessages的作用
摘要：procedure TForm1.Button2Click(Sender: TObject); var I, J, X, Y: Word; begin I := 0; J := 0; while I < 64000 do begin Randomize; while J < 64000 do begin Y := Rando...
阅读全文
posted @
2008-03-26 08:40
大口仔
阅读(5407)
推荐(0) 编辑
每月的最后一天和每月的第一天(Delphi)
摘要：procedure GetMonthDay(const ADate: TDateTime; var AMonthFirst, AMonthLast: TDateTime); var Year, Month, Day: Word; begin DecodeDate(ADate, Year...
阅读全文
posted @
2008-03-25 15:51
大口仔
阅读(3023)
推荐(0) 编辑
Delphi快速向SQL数据库中读、写图片
摘要：有朋友初學編程，嚐試自己做一個簡單的人事系統，昨天問到我如果在程序中實現對相片的讀、寫操作。這個問題我以前也有做過，但時間隔得久，只記得個大概，於是又動手研究了一下，並用內存流的方式予以實現，相對於網上其它實現方法的冗長、複雜而言，此方法既簡單又高效。 我們知道BLOB在数据库的表中实际上是以二进制数据的形式存放的。由于BLOB的特殊性，一般的程序都无法处理它。...
阅读全文
posted @
2008-02-22 16:53
大口仔
阅读(1291)
推荐(0) 编辑
