随笔分类 -  delphi

上一页 1 2
通过注册表让程序开机启动
摘要：1 procedure SetAutoRun(sName, sPath: string; bAdd: boolean); 2 var 3 Reg : TRegistry; //首先定义一个TRegistry类型的变量Reg 4 openResult : Boolean; 5 begin 6 Reg: 阅读全文
posted @ 2020-04-22 22:50 @王新@ 阅读(293) 评论(0) 推荐(0)
cxGrid的列设定
摘要：1 procedure TFmMonitor.ActShowSetExecute(Sender: TObject); 2 begin 3 Show_setting(viewM, Self.Name); 4 end; 阅读全文
posted @ 2020-03-08 18:27 @王新@ 阅读(144) 评论(0) 推荐(0)
cxGrid常用功能
摘要：根据某一列的值，整行以不同颜色显示 procedure TFmMonitor.viewMCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo 阅读全文
posted @ 2020-03-08 18:13 @王新@ 阅读(150) 评论(0) 推荐(0)
数据库图片存取(New)
摘要：procedure TForm1.Button1Click(Sender: TObject); var ms : TMemoryStream; jpeg1 : TJPEGImage; begin //将数据库字段的内容读取到流中 ms := TMemoryStream.Create; TBlobFi 阅读全文
posted @ 2020-02-24 12:55 @王新@ 阅读(142) 评论(0) 推荐(0)
数据库图片存取
摘要：1、存图片到数据库 var PicStream: TMemoryStream; if imgBugPic.Picture.Graphic <> nil then begin PicStream := TMemoryStream.Create; // 创建内存流 imgBugPic.Picture.G 阅读全文
posted @ 2020-02-22 17:42 @王新@ 阅读(127) 评论(0) 推荐(0)
用FireDAC组件备份数据库
摘要：将以下组件放在窗体上： 两个TButton组件TFDPhysFBDriverLinkTFDGUIxWaitCursorTFDIB备份TFDIB还原FireDAC_gbak 使用TFDIBBackup备份FDPhysFBDriverLink1.VendorLib := 'C:\driver\fbemb 阅读全文
posted @ 2020-02-07 22:16 @王新@ 阅读(317) 评论(0) 推荐(0)
生成GUID
摘要：生成GUID procedure TForm1.Button1Click(Sender: TObject);var id : TGUID; sGUID : String;begin CreateGUID(id); sGUID := GUIDToString(id); //sGUID := Copy( 阅读全文
posted @ 2019-11-09 16:48 @王新@ 阅读(257) 评论(0) 推荐(0)

上一页 1 2