Delphi
无名小卒菜
记录开发中遇到的问题,互相学习。
展开
-
delphi MD5 加密 32位小写
1.引用单元:uses IdHash,IdHashMessageDigest;2.编写加密函数:function TbsPartStatusQueryForm.StrtoMd5(str: string): string;varmd5 : TIdHashMessageDigest5;longWordRec : T4x4LongWordRecord;beginmd5 := ...原创 2019-12-27 18:15:07 · 652 阅读 · 0 评论 -
delphi数据列在第一行插入总计
空的Dataset直接first append就可以实现。不为空的Dataset,根据Dataset的值求和,显示在第一列。if fcds1.RecordCount >0 then begin fcdsTemp := TfwClientDataset.Create(nil); fcdsTemp.CreateFieldsFromDataSet...原创 2019-03-26 14:20:53 · 357 阅读 · 0 评论 -
delphi的全选框和不可选中
cxCheckBox控件,cxGrid区域数据列 IS_SELECTED 全选procedure TbsBatteryRecyclingOutForm.chkChooseAllClick(Sender: TObject);begin inherited; if fcds.RecordCount<=0 then Exit; fcds.DisableControls; t...原创 2019-03-26 14:07:59 · 830 阅读 · 0 评论 -
Delphi 连接Ftp服务器,取文件目录
procedure TbsFileBackUpForm.conectServer(Sender: TObject); var tr : Tstrings; begin //连接 tr := TStringlist.Create; IdFTP1.Host := '10.000.00.00'; //FTP服务器IP地址or域名也可以 IdFTP1.Port :=21; ...原创 2018-07-10 16:54:28 · 4269 阅读 · 0 评论 -
Delphi 文件下载IDHTTP实现
function TbsFileBackUpForm.DownloadFile( aurl: string): string;var MemoryStream: TMemoryStream; URL, SavePath, sFileName,sFileType: string; SaveDialog: TSaveDialog; iPos: Integer; DMHttp...原创 2018-07-10 16:50:31 · 2375 阅读 · 0 评论 -
Delphi获得选定路径
procedure TbsFileUrlPop.cxtxtdtDestinationUrlClick(Sender: TObject);var strPath: string; // 用户选定后的目录begin inherited; strPath := ''; if (SelectDirectory('请选择文件保存的路径', '', strPath)) then ...原创 2018-07-10 16:48:18 · 524 阅读 · 0 评论 -
Delphi文件拷贝
//文件拷贝procedure TbsFileUrlPop.copyFile(Sender: TObject); var f1 : tfilestream; f2 : tfilestream ; begin try f1:=Tfilestream.Create('\\10.180.5.238\share\1234.rar',fmOpenRead); ...原创 2018-07-10 16:46:42 · 1001 阅读 · 0 评论 -
delphi遍历目录下所有文件
procedure TbsFileBackUpForm.SearchFile(path: PChar; fileExt: string; fileList: TStringList);var searchRec: TSearchRec; found: Integer; tmpStr: string; curDir: string; dirs: T...原创 2018-07-10 16:43:02 · 6501 阅读 · 2 评论 -
delphi循环校验数据集
function XXXXXFrom.CheckData(Sender: TObject): Boolean;var tmpcds:TfwClientDataset;begin Result:=False; tmpcds:=TfwClientDataset.Create(nil); try tmpcds.CopyFromDataSet(fcdsImport); ...原创 2019-05-08 10:55:54 · 372 阅读 · 0 评论