- 博客(7)
- 收藏
- 关注
RSS订阅转载 状态栏显示控件的hint
方法一： 首先，设置控件的hint属性。然后，把StatusBar1控件的AutoHint属性设置为true。方法二： 1.放一个TMainMenu到form上，设定菜单项的Hint属性,比如Hint="关闭|退出程序";设定ShowHint=true； 2.放置一个TStatusBar到Form上；...
2010-07-17 15:50:00
257
转载 求月份之差
1、DecodeDateprocedure TForm1.Button1Click(Sender: TObject);var wYear1,wYear2,wMonth1,wMonth2,wDay1,wDay2:word; wYearDiff,wMonthDiff:Integer; date1,date2:String;begin date1:='2009-12...
2010-07-17 14:20:00
110
转载 线程与进程
学习多线程前，先学习下进程。进程 是操作系统结构的基础；是一个正在执行的程序；计算机中正在运行的程序实例；可以分配给处理器并由处理器执行的一个实体；由单一顺序的执行显示，一个当前状态和一组相关的系统资源所描述的活动单元。进程 是程序在计算机上的一次执行活动。当你运行一个程序，你就启动了一个进程。显然，程序是死的(静态的)，进程是活的(动态的)。 第一，...
2010-07-08 21:24:00
105
转载 delphi 从Config.ini文件中读取配置信息
proceudre TForm1.ReadConfig;VarmIni：TIniFile;filename,port:string;begin filename:=ExtractFilePath(paramstr(0))+'Config.ini'; mIni:= TIniFile.Creat(filename); try port:=mI...
2010-07-08 08:31:00
368
转载 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...
2010-07-08 08:19:00
278
转载 delphi 只能输入数字和小数点到编辑框内，屏蔽其他字符的输入
Procedure numonly(key :char);beginif (not (Key in ['0'..'9']) //数字 and (Key <> '.') and (Key <> #8) ) then //小数点和退回键 begin Key :=#0;end;end;转载...
2010-07-08 08:11:00
209
转载 delphi 串口字符串转换为整型数据函数（copy）
例如“COM1”转换以后为“1”，“COM2”转为以后为2function ComStrToInt(AComStr:string):smallint;var mLen: integer; mResult: string;begin mLen := Length(AComStr); mResult := Copy(AComStr,4,mL...
2010-07-07 21:47:00
325
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人