![](https://img-blog.csdnimg.cn/20201014180756757.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
9807146wang
这个作者很懒,什么都没留下…
展开
-
delphi 设置Excel单元格格式两种方式
1.原创 2023-04-10 14:05:01 · 731 阅读 · 0 评论 -
delphi调用C++封装动态库
delphi调用C++动态库,当C++中有枚举类型时,在delphi定义枚举类型时,要在定义单元上面加上unit LocateWaitfrm;interfaceuses{$Z4};否则会出现结构体中大小不一致现象。...原创 2019-12-30 15:04:53 · 573 阅读 · 1 评论 -
让fastreport报表中每页序号从1开始。
[iif( mod 12 >0, mod 12,12)]原创 2017-05-04 16:03:23 · 3050 阅读 · 2 评论 -
在cxgrid中根据第一列的ID值,对第二列进行下拉过滤
procedure TForm1.cxGrid1TableView1Column3GetPropertiesForEdit( Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; var AProperties: TcxCustomEditProperties);begin (**)// arecord原创 2017-02-17 08:37:10 · 1372 阅读 · 0 评论 -
下载指定网络验证码图片,并保存
varstream:TMemoryStream;beginIdHTTP1.Get('http://www.jljj.cn/');Stream := TMemoryStream.Create ;idhttp1.Get('http://www.jljj.cn/thirdparty/cx/val.jsp?change=yes&random=',Stream);stream.Sav原创 2016-07-13 17:26:00 · 463 阅读 · 0 评论 -
递归查询网页Frame
function GetFrame(ADoc:IHTMLDocument2 ; FrameNo:Integer):IWebbrowser2;var OleContainer:IOleContainer; enum:IEnumUnknown; unk:IUnknown; Fetched:PLongint;begin Result:=nil; try原创 2016-04-19 09:50:57 · 404 阅读 · 0 评论 -
delphi获取电脑内存使用情况
var status : TMemoryStatus; rate : single;begin GlobalMemoryStatus(status); // showmessage(floattostr(status.dwMemoryLoad));// showmessage(floattostr((status.dwAvailPageFile)/1原创 2015-10-08 15:34:56 · 1973 阅读 · 0 评论 -
CXGrid用法1
CXGRID用法 (取行、列值;定位选中某行等等) Delphi Cxgrid获取选中行列,排序规则,当前正在编辑的单元格内的值 cxGrid1DBTableView1.Controller.FocusedRowIndex当前行号 cxGrid1DBTableView1.Controller.FocusedRow 当前行 cxGrid1DBTableView1.Contr原创 2015-08-12 15:58:55 · 969 阅读 · 0 评论 -
在delphi中制作二维码
var abar: TQRCode; aCode: string;begin if acode = '' then acode := 'www.163.com'; acode := acode; ppIgm.Picture.Bitmap := nil; abar := TQRCode.Create(nil); abar.Eclevel :=原创 2015-03-05 14:56:40 · 2700 阅读 · 1 评论 -
在JPG图片上直接写字,不用转成BMP
jpg := tjpegimage.create;jpg.loadfromfile('D:\Photo\2014-12-26\20141223150119855驶近_60_90_无车牌.jpg');//image4.Picture.Assign(jpg);image4.canvas.draw(0,0,jpg);image4.Canvas.Brush.Color:= clBlack;原创 2015-01-29 11:15:47 · 1556 阅读 · 0 评论 -
在fastreport中打印空白表格及小写金额转大写金额
var PageLine: integer; //在現在頁列印到第幾行 PageMaxRow: integer=15; //設定每頁列數 C_ToTal, C_JINE : STring; ToTal_Debit, Page_JinE, Total_Credit : Extended; //Debit-借方 ,credit-贷方原创 2014-10-17 13:58:02 · 2846 阅读 · 0 评论 -
在combox中加入多列。。
type pFields=^TFields;//定义一个记录集 TFields=Record ID,CName,EName:String; end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);va原创 2014-06-06 11:16:47 · 2173 阅读 · 0 评论 -
常用函数
格式化整型字串0000形式:format('%.5d',[134]); 取char数组到string类型变量;struPlateResult.byAbsTime:array[0..20] of char;VarCarDateTime:string;strcopy(@VarCarDateTime,@struPlateResult.byAbsTime);原创 2012-05-29 16:25:03 · 356 阅读 · 0 评论 -
cxgrid直接载入图片
procedure TForm1.FormCreate(Sender: TObject);var tmpMemStream: TMemoryStream; tmpPic: TPicture; tmpSize: LongInt; tmpStr,AFileName: String;aa: TStringStream; AValue: AnsiString; APic原创 2012-02-07 09:28:03 · 2889 阅读 · 1 评论 -
cxgrid根据图片路径载入图片
while not ADOQuery1.eof dobegin if not ADOQuery1.Fieldbyname('PrintFileName').IsNull then begin AFileName := ADOQuery1.Fieldbyname('PrintFileName').AsString; if FileExists(AFileName)原创 2011-09-07 08:16:16 · 1765 阅读 · 0 评论 -
cxTreeList和cxListView使用
在cxTreeList中添加结点。var aa,bb: TcxTreeListNode;begin if cxTreeList1.Count >0 then begin bb:=cxTreeList1.Items[0]; aa:=cxTreeList1.Insert(bb);endelse aa:=cxTreeList1.Add;aa.Value原创 2012-01-05 16:20:17 · 4623 阅读 · 0 评论 -
使cxgrid中某列下拉列表自动下拉
Grid_infoDBTableView1.DataController.FocusedRowIndex:= self.Grid_infoDBTableView1.DataController.RowCount; Grid_infoDBTableView1.Controller.FocusedColumnIndex :=4; Grid_info.SetFocus; Grid_in原创 2012-02-01 16:28:02 · 2011 阅读 · 0 评论