- 博客(11)
- 收藏
- 关注
RSS订阅转载 提取一个文件的文件名和扩展名
取文件名 ExtractFileName(FileName); 取文件扩展名： ExtractFileExt(filename); //////////////////////////////////////////////////////////////////// 取文件名，不带扩展名 /////////////////////
2009-01-10 12:32:00
849
转载 opendialog控件的多选操作
设置OpenDialog的Option属性，置ofAllowMultiSelect属性为True，然后就可以一次选择多个文件了，返回Files，是一个TStrings类型，通过它就可以取得所有选择的文件了。 我是问如何把多选的文件加到LISTBOX中去哦var i :integer; begin for i := 0 to
2009-01-10 11:49:00
1235
转载 doc2txt
需要将doc文档里面的文字保存成txt里面文字，也是手头程序的一个功能。下面代码是测试代码，不过已经实现应该有的功能，如需使用，可以进一步封装。uses ComObj,procedure change(fn:string);varfilename:String;patch:string;beginpatch:=ExtractFilePath(ParamStr(0));filename:=PChar
2009-01-09 16:50:00
686
转载 delphi中判断字符串是否为数字
delphi中判断字符串是否为数字 Delphi中，想判断一个字符串是否为数字，有好多方法，这里列出两种简单的方法：1. 自定义函数function isnum(str:string):boolean; var i:integer; begin for i:=1 to length(str) do if
2008-12-16 09:59:00
2117
原创 怎得到年、月、日？
1、Year := FormatDateTime(YYYY,Date); Month := FormatDateTime(MM,Date); Day := FormatDateTime(DD,Date); 2、Delphi中自带 DecodeDate 它的申明为： procedure DecodeDa
2008-12-15 21:20:00
318
转载 18位身份证校验算法
关于身份证号码最后一位的校验码的算法如下：我国现行使用公民身份证号码有两种尊循两个国家标准，〖GB 11643-1989〗和〖GB 11643-1999〗。〖GB 11643-1989〗中规定的是15位身份证号码：排列顺序从左至右依次为：六位数字地址码，六位数字出生日期码，三位数字顺序码，其中出生日期码不包含世纪数。〖GB 11643-1999〗中规定的是18位身份证号码：公民身份号码是特征组
2008-12-15 21:05:00
1469
原创 delphi中的三种循环
NO.1while//执行最近的语句，如没有复合语句，则到第一个分号再次循环，否则执行复合语句while I>10 do//当I大于10时，做以下语句;begin ... Inc(I);end;NO.2for //执行最近的语句，如没有复合语句，则到第一个分号再次循环，否则执行复合语句for I := 0 to 10 do //让I在0 到10之间进行循环，同时执行下列语句begin...end;
2008-12-15 20:01:00
1570
原创 Random随机函数用法
先运行Randomize较好Random(8) 会得到0 但不会得到8----------------------------------RandomRange(1,8),会得到1,但不会得到8
2008-12-15 19:33:00
506
转载 Delphi 文件
文件的打开与关闭 AssignFile ： 把一个外部文件名和一个文件变量相关联 Reset ：打开一个存在的文件 Rewrite ：创建并打开一个新文件（或覆盖原有文件） Append ： 以添加方式打开一个文件（只适用于文本文件） CloseFile ： 关闭一个打开的文件 FileOpen
2008-11-28 18:41:00
380
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人