自定义博客皮肤

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

参数为指针参数如何传递。。

type TMyArr=array[0..3]ofTPoint; PMyArr=^TMyArr; TForm1=class(TForm) Button1:TButton; procedureButton1Click(Sender:TObject); private procedureShowArr...

2019-08-08 16:24:24

阅读数 10

评论数 0

base64编码问题

当用EncodeStream(Stream,sm1);//将内存流编码为base64字符流,转为base64编码后,会每76行后加一个回车换行字符,使用中应该去掉: streamstr:=stringreplace(sm1.DataString,#13#10,'...

2019-04-04 15:51:57

阅读数 62

评论数 0

获取网络文件及目录

var    NetSource   :   TNetResource;    dwResult:DWORD;begin    g_bFlag:=True;    with   NetSource   do    begin        dwType   :=   RESOURCETYPE_AN...

2018-06-22 14:24:27

阅读数 443

评论数 0

在dll里实现定时器功能

一,首先引入“mmsystem”单元。二,启动定时器:     var        MMTimerID: Integer; // 定时器ID        MMTimerID := timeSetEvent(1000, 0, @TimerProc, 0, TIME_PERIODIC);三,定时器...

2018-04-04 15:26:39

阅读数 755

评论数 0

让fastreport报表中每页序号从1开始。

[iif( mod 12 >0, mod 12,12)]

2017-05-04 16:03:23

阅读数 1690

评论数 1

在cxgrid中根据第一列的ID值,对第二列进行下拉过滤

procedure TForm1.cxGrid1TableView1Column3GetPropertiesForEdit(   Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;   var AProperties: Tcx...

2017-02-17 08:37:10

阅读数 1053

评论数 0

下载指定网络验证码图片,并保存

var stream:TMemoryStream; begin IdHTTP1.Get('http://www.jljj.cn/'); Stream := TMemoryStream.Create ; idhttp1.Get('http://www.jljj.cn/thirdparty/...

2016-07-13 17:26:00

阅读数 301

评论数 0

递归查询网页Frame

function GetFrame(ADoc:IHTMLDocument2 ; FrameNo:Integer):IWebbrowser2; var   OleContainer:IOleContainer;   enum:IEnumUnknown;   unk:IUnknown;   ...

2016-04-19 09:50:57

阅读数 275

评论数 0

delphi获取电脑内存使用情况

var   status : TMemoryStatus;   rate   : single; begin  GlobalMemoryStatus(status);  // showmessage(floattostr(status.dwMemoryLoad)); /...

2015-10-08 15:34:56

阅读数 1280

评论数 0

CXGrid用法1

CXGRID用法  (取行、列值;定位选中某行等等)   Delphi Cxgrid获取选中行列,排序规则, 当前正在编辑的单元格内的值   cxGrid1DBTableView1.Controller.FocusedRowIndex当前行号  cxGrid1DBTableView1.Co...

2015-08-12 15:58:55

阅读数 678

评论数 0

查看端口是否被占用

查看该端口情况如下:       netstat -aon|findstr "5037"       TCP    127.0.0.1:5037         0.0.0.0:0              LISTENING       6540 发现6540占用了 5...

2015-04-14 16:39:44

阅读数 343

评论数 0

在delphi中制作二维码

var   abar: TQRCode;   aCode: string; begin   if acode = '' then     acode := 'www.163.com';   acode := acode;   ppIgm.Picture.Bitmap := nil; ...

2015-03-05 14:56:40

阅读数 1959

评论数 1

在JPG图片上直接写字,不用转成BMP

jpg := tjpegimage.create; jpg.loadfromfile('D:\Photo\2014-12-26\20141223150119855驶近_60_90_无车牌.jpg'); //image4.Picture.Assign(jpg); image4.canvas.d...

2015-01-29 11:15:47

阅读数 1279

评论数 0

在fastreport中打印空白表格及小写金额转大写金额

var    PageLine: integer;       //在現在頁列印到第幾行    PageMaxRow: integer=15;  //設定每頁列數   C_ToTal, C_JINE : STring;   ToTal_Debit, Page_JinE, Total_C...

2014-10-17 13:58:02

阅读数 2333

评论数 0

在combox中加入多列。。

type     pFields=^TFields;//定义一个记录集     TFields=Record         ID,CName,EName:String;     end; var   Form1: TForm1; implementation {$R *.dfm}...

2014-06-06 11:16:47

阅读数 1664

评论数 0

常用函数

格式化整型字串0000形式: format('%.5d',[134]);   取char数组到string类型变量; struPlateResult.byAbsTime:array[0..20] of char; VarCarDateTime:string; strcopy(@VarC...

2012-05-29 16:25:03

阅读数 283

评论数 0

cxgrid直接载入图片

procedure TForm1.FormCreate(Sender: TObject); var  tmpMemStream: TMemoryStream;  tmpPic: TPicture;  tmpSize: LongInt;  tmpStr,AFileName: String;...

2012-02-07 09:28:03

阅读数 2190

评论数 1

使cxgrid中某列下拉列表自动下拉

Grid_infoDBTableView1.DataController.FocusedRowIndex:= self.Grid_infoDBTableView1.DataController.RowCount;   Grid_infoDBTableView1.Controller.Focuse...

2012-02-01 16:28:02

阅读数 1473

评论数 0

“计算机无法访问,您可能没有权限使用网络资源”解决方法

‍ 今天实验室装网络打印机,尝试连接作为打印服务器的电脑时,收到是类似于以下错误信息: XXXXXXX 是不可访问。 您可能没有权限用于此网络资源。 访问被拒绝。        XXXXX 是基于 WindowsXP 的计算机 IP 地址或计算机的名称。 使用 IP 地址或计算机名称来访问...

2012-01-13 10:46:38

阅读数 2148

评论数 0

cxTreeList和cxListView使用

在cxTreeList中添加结点。 var aa,bb: TcxTreeListNode; begin   if cxTreeList1.Count >0 then   begin    bb:=cxTreeList1.Items[0];   aa:=cxTreeList1.In...

2012-01-05 16:20:17

阅读数 3751

评论数 0

提示
确定要删除当前文章?
取消 删除