随笔分类 -  Delphi

摘要：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... 阅读全文

摘要：procedure GetMonthDay(const ADate: TDateTime; var AMonthFirst, AMonthLast: TDateTime); var Year, Month, Day: Word; begin DecodeDate(ADate, Year... 阅读全文

摘要：有朋友初學編程，嚐試自己做一個簡單的人事系統，昨天問到我如果在程序中實現對相片的讀、寫操作。這個問題我以前也有做過，但時間隔得久，只記得個大概，於是又動手研究了一下，並用內存流的方式予以實現，相對於網上其它實現方法的冗長、複雜而言，此方法既簡單又高效。 我們知道BLOB在数据库的表中实际上是以二进制数据的形式存放的。由于BLOB的特殊性，一般的程序都无法处理它。... 阅读全文