![](https://img-blog.csdnimg.cn/20201014180756780.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
delphi
天山映雪
这个作者很懒,什么都没留下…
展开
-
一个数据集里面去除重复的值,并对值相加
非源码。提供思路 TStringList // FilessList:=TStringList.Create; FilessList.Sorted:=True; FilessList.Duplicates:=dupIgnore; for 循环 if FilessList.Values[szname]='' then FilessLis...原创 2019-10-30 14:49:11 · 378 阅读 · 1 评论 -
判断一个字符串是否有中文
S:='123'; if length(S)-length(widestring(S)) > 0 then begin ShowMessage('有中文'); end;原创 2019-10-28 09:41:07 · 119 阅读 · 0 评论 -
读取文件夹下 多层级的 文件list
function TCopyNetwork.FileSearch(PathName:string):TStringList; var F : TSearchRec; Found : Boolean; begin ChDir(PathName); Found := (FindFirst('*.*', faAnyFile, F) = 0); while Found do beg...原创 2019-10-25 10:57:07 · 185 阅读 · 0 评论