From December 18 to December 31, we are offering you to purchase reporting libraries for .NET and Delphi at a 25% discount. This is a great opportunity to make sure that in 2025 your business will save resources on creating documents and reports. The offer does not apply to renewals and ...
details:=TStringList.Create; nodetails:=TStringList.Create; FTPClient.List(details,’’,True); FTPClient.List(nodetails,’’,False); //weonlywanttohavedirectoriesinthelist(without’.’and’..’) //nunfilternwirdasnachdenordnern(ohne’.’und’..’) fork:=details.Count-1downto0do begin...
上传本地目录到FTP服务器procedureUploadPerFTP;procedureGetDir(dir:string);varSearchRec:TSearchRec;details,nodetails:TStringList;k:Integer;begin//iteratethroughdirectorygiven//schleifeüberalledateienimordnerifFindFirst(dir+’*.*’,faAnyFile,SearchRec)=0thenbeginrepeat//getridoftheboth"dummy-directories"’...
nodetails := TStringList.Create; FTPClient.List(details, ’’, True); FTPClient.List(nodetails, ’’, False); //we only want to have directories in the list (without ’.’ and ’..’) //nun filtern wir das nach den ordnern (ohne ’.’ und ’..’) for k := details...