2010年7月17日
状态栏显示控件的hint
摘要： 方法一： 首先，设置控件的hint属性。然后，把StatusBar1控件的AutoHint属性设置为true。方法二： 1.放一个TMainMenu到form上，设定菜单项的Hint属性,比如Hint="关闭|退出程序";设定ShowHint=true； 2.放置一个TStatusBar到Form上；3.找到控件面板Additional的ApplicationEvents1控件,放置到form上，... 阅读全文
posted @ 2010-07-17 15:50 鸽子888 阅读(191) 评论(0) 推荐(0) 编辑
求月份之差
摘要： 1、DecodeDateprocedure TForm1.Button1Click(Sender: TObject);var wYear1,wYear2,wMonth1,wMonth2,wDay1,wDay2:word; wYearDiff,wMonthDiff:Integer; date1,date2:String;begin date1:='2009-12-01'; date2:='2010-... 阅读全文
posted @ 2010-07-17 14:20 鸽子888 阅读(158) 评论(0) 推荐(0) 编辑
2010年7月8日
线程与进程
摘要： 学习多线程前，先学习下进程。进程 是操作系统结构的基础；是一个正在执行的程序；计算机中正在运行的程序实例；可以分配给处理器并由处理器执行的一个实体；由单一顺序的执行显示，一个当前状态和一组相关的系统资源所描述的活动单元。进程 是程序在计算机上的一次执行活动。当你运行一个程序，你就启动了一个进程。显然，程序是死的(静态的)，进程是活的(动态的)。 第一，进程是一个实体。 第二，进程是一个&ldquo... 阅读全文
posted @ 2010-07-08 21:24 鸽子888 阅读(189) 评论(0) 推荐(0) 编辑
delphi 从Config.ini文件中读取配置信息
摘要： proceudre TForm1.ReadConfig;VarmIni：TIniFile;filename,port:string;begin filename:=ExtractFilePath(paramstr(0))+'Config.ini'; mIni:= TIniFile.Creat(filename); try port:=mIni.ReadString('comport','Port'... 阅读全文
posted @ 2010-07-08 08:31 鸽子888 阅读(666) 评论(0) 推荐(0) 编辑
delphi 长度相同的字符串，长度不同的话，前面用空格代替（DupeString）
摘要： function SameStr(Str: String; Len: Integer): String;var m:string;begin if Len >= Length(Str) then begin m := StrUtils.DupeString(' ', len-length(str)); Result:=m+str; end else Result:=str;end;StrUt... 阅读全文
posted @ 2010-07-08 08:19 鸽子888 阅读(630) 评论(0) 推荐(0) 编辑
delphi 只能输入数字和小数点到编辑框内，屏蔽其他字符的输入
摘要： Procedure numonly(key :char);beginif (not (Key in ['0'..'9']) //数字 and (Key <> '.') and (Key <> #8) ) then //小数点和退回键 begin Key :=#0;end;end; 阅读全文
posted @ 2010-07-08 08:11 鸽子888 阅读(192) 评论(0) 推荐(0) 编辑
2010年7月7日
delphi 串口字符串转换为整型数据函数（copy）
摘要： 例如“COM1”转换以后为“1”，“COM2”转为以后为2function ComStrToInt(AComStr:string):smallint;var mLen: integer; mResult: string;begin mLen := Length(AComStr); mResult := Copy(AComStr... 阅读全文
posted @ 2010-07-07 21:47 鸽子888 阅读(466) 评论(0) 推荐(0) 编辑