实用算法
关注
分享
扫一扫
zwk_9
希望能和更多的csdn人一起学习，共同提高。
展开
-
文件的压缩与解压缩
(1)压缩procedure CompressBitmap(var CompressedStream: TMemoryStream;const CompressionLevel: TCompressionLevel);var SourceStream: TCompressionStream; DestStream: TMemoryStream; Count: Integer原创 2008-07-11 09:28:00 · 580 阅读 · 0 评论 -
delphi实现屏幕截图
（1）新建工程，设置主界面form1的BoardStyle为bsNone，FormStyle为fsStayOnTop，WindowState为wsMaximized。（2）在form1中放置Image1，设置其AutoSize为True。（3）在form1的OnCreate事件中截取全屏，并将截到的图片放置在image1中。procedure TForm1.FormCreate(Se原创 2008-07-18 07:27:00 · 8709 阅读 · 1 评论 -
身份证号码的验证&根据身份证号码获取出生日期和性别
//判断身份证号码是否有效function CheckIDCard(EditNum: TEdit): boolean;var sID: String; sMonth, sDay: String;begin sID:= EditNum.Text; if((length(trim(sID))18)) then begin MessageBox(EditNum.Handle, 身份证号原创 2008-09-12 16:29:00 · 1626 阅读 · 0 评论 -
delphi设置公式/限制条件（1）
在界面上放置2个ListBox——ListBoxItems和ListBoxItemFields，前者用于存放项目名称，后者用于存放与之相对应的字段放置两个Memo——MemoFormula和MemoCondition，前者用于存放公式，后者用于存放限制条件const ErrorStr = Unvalid String; //用于表示非法//***********获取用字段表示的考勤原创 2008-10-30 10:06:00 · 1350 阅读 · 0 评论 -
delphi设置公式/限制条件（2）
在界面上放置2个ListBox——ListBoxItems和ListBoxItemFields，前者用于存放项目名称，后者用于存放与之相对应的字段放置两个Memo——MemoFormula和MemoCondition，前者用于存放公式，后者用于存放限制条件放置符号按钮 //******************双击选择项目*****************//procedure Tfrmwa原创 2008-10-30 10:36:00 · 792 阅读 · 0 评论