自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(11)
  • 收藏
  • 关注

转载 提取一个文件的文件名和扩展名

 取文件名     ExtractFileName(FileName);     取文件扩展名:     ExtractFileExt(filename);             ////////////////////////////////////////////////////////////////////     取文件名,不带扩展名     /////////////////////

2009-01-10 12:32:00 791

转载 opendialog控件的多选操作

设置OpenDialog的Option属性,置ofAllowMultiSelect属性为True,然后就可以一次选择多个文件了,返回Files,是一个TStrings类型,通过它就可以取得所有选择的文件了。 我是问如何把多选的文件加到LISTBOX中去哦var         i   :integer;     begin         for   i   :=   0   to  

2009-01-10 11:49:00 1188

转载 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 643

转载 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 1787

原创 判断字符串的长度

判断字符串的长度length()

2008-12-16 09:57:00 914

原创 怎得到年、月、日?

1、Year   :=   FormatDateTime(YYYY,Date);     Month   :=   FormatDateTime(MM,Date);     Day   :=   FormatDateTime(DD,Date);  2、Delphi中自带   DecodeDate         它的申明为:   procedure   DecodeDa

2008-12-15 21:20:00 296

转载 18位身份证校验算法

关于身份证号码最后一位的校验码的算法如下:我国现行使用公民身份证号码有两种尊循两个国家标准,〖GB 11643-1989〗和〖GB 11643-1999〗。〖GB 11643-1989〗中规定的是15位身份证号码:排列顺序从左至右依次为:六位数字地址码,六位数字出生日期码,三位数字顺序码,其中出生日期码不包含世纪数。〖GB 11643-1999〗中规定的是18位身份证号码:公民身份号码是特征组

2008-12-15 21:05:00 1243

原创 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 1460

原创 Random随机函数用法

先运行Randomize较好Random(8)  会得到0 但不会得到8----------------------------------RandomRange(1,8),会得到1,但不会得到8

2008-12-15 19:33:00 471

原创 delphi字符串操作

Uses 要增加StrUtilsMidStr(变量,起始位,读取位数)

2008-12-15 19:17:00 240

转载 Delphi 文件

文件的打开与关闭         AssignFile   : 把一个外部文件名和一个文件变量相关联     Reset     :打开一个存在的文件     Rewrite         :创建并打开一个新文件(或覆盖原有文件)     Append       : 以添加方式打开一个文件(只适用于文本文件)     CloseFile     : 关闭一个打开的文件     FileOpen

2008-11-28 18:41:00 346

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除