aini_tianshanyingxue的专栏

非源码。提供思路 TStringList // FilessList:=TStringList.Create; FilessList.Sorted:=True; FilessList.Duplicates:=dupIgnore; for 循环 if FilessList.Values[szname]='' then FilessLis...

S:='123'; if length(S)-length(widestring(S)) > 0 then begin ShowMessage('有中文'); end;

function TCopyNetwork.FileSearch(PathName:string):TStringList; var F : TSearchRec; Found : Boolean; begin ChDir(PathName); Found := (FindFirst('*.*', faAnyFile, F) = 0); while Found do beg...