摘要：
uses StrUtils;c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.SysUtils.pasfunctionTrim(constS:string):string;functionTrimLeft(constS:string):string;functionTrimRight(const... 阅读全文
posted @ 2013-07-01 21:38
XE2011
阅读(541)
评论(0)
推荐(0)
摘要：
//往另外1个ListView中添加当前选中的项目 function AddSelItems(listview1:TListView;ListView2:TListView):Boolean;vars: string;I: Integer;beginResult:=False;if listview1.Selected =nil thenexit;for ... 阅读全文
posted @ 2013-07-01 19:26
XE2011
阅读(159)
评论(0)
推荐(0)
摘要：
默认的重命名是这样的MoveFile(PChar('C:\1.txt'),PChar('C:\ABC.txt'));现在修改成这样的__RenameFile('C:\1.txt','abc');//重命名文件//重命名文件 或文件夹function __RenameFile(OldName:string;Title:string):Boolean;varNewName:string;beginNe... 阅读全文
posted @ 2013-07-01 18:13
XE2011
阅读(268)
评论(0)
推荐(0)
摘要：
//判断字符串是否包含以下字符functionIsIllegalChar(Text:string):Boolean;constillegalChar:setofChar=['\','/',':','?','"','','|'];vari:Integer;beginfori:=1toLength(Text)dobegin... 阅读全文
posted @ 2013-07-01 17:46
XE2011
阅读(143)
评论(0)
推荐(0)
浙公网安备 33010602011771号