夏天的西瓜君

2018年6月26日

摘要： {Register the Window class} function RegisterClassMeth: Boolean; var WindowClass: TWndClass; begin {setup our new window class} WindowClass.style := CS_HREDRAW or CS_VREDRAW; {set the class sty... 阅读全文

posted @ 2018-06-26 15:53 夏天的西瓜君阅读(442) 评论(0) 推荐(0)

delphi GetMem使用

摘要： procedure TForm12.Button2Click(Sender: TObject); var mystring: PChar; begin GetMem(mystring, 1024); GetWindowText(Button1.Handle,mystring,100); Label1.Caption := Format('%s:%d', [mystring, st... 阅读全文

posted @ 2018-06-26 11:23 夏天的西瓜君阅读(961) 评论(0) 推荐(0)

delphi 利用TFileStream和TcxProgressBar拷贝文件

摘要： procedure TForm11.Button5Click(Sender: TObject); var getPath: string; setPath: string; getstream, setstream: TFileStream; num, n: Integer; buf: PByte; bufsize, block: Integer; begin get... 阅读全文

posted @ 2018-06-26 10:27 夏天的西瓜君阅读(347) 评论(0) 推荐(0)

TdxGaugeControl

摘要： procedure TForm11.Button2Click(Sender: TObject); begin dxGaugeControl1DigitalScale1.Value := '1234'; end; 阅读全文

posted @ 2018-06-26 09:11 夏天的西瓜君阅读(276) 评论(0) 推荐(0)

2018年6月25日

TdxSkinController

摘要： procedure TForm11.FormCreate(Sender: TObject); begin dxSkinController1.NativeStyle := False; dxSkinController1.SkinName := 'coffee'; end; 阅读全文

posted @ 2018-06-25 16:41 夏天的西瓜君阅读(403) 评论(0) 推荐(0)

2018年6月21日

delphi TdxMemData 使用

摘要：功能跟kbmtable 内存表差不多。阅读全文

posted @ 2018-06-21 14:42 夏天的西瓜君阅读(618) 评论(0) 推荐(0)

2018年6月16日

delphi 生成条形码（fastreport 实现）

摘要：用fastreport 实现条码的生成和打印。源码参考我的github。 https://github.com/YoungTsuiMing/genBarcode 阅读全文

posted @ 2018-06-16 15:16 夏天的西瓜君阅读(1149) 评论(0) 推荐(0)

delphi 判断字符串有中文

摘要： function TForm1.IsHaveChinese(judgeStr: string; var posInt: integer): boolean; var p: PWideChar; // 要判断的字符 count: integer; // 包含汉字位置 isHave: boolean; // 是否包含汉字返回值 begin isHave := false; // 是... 阅读全文

posted @ 2018-06-16 12:59 夏天的西瓜君阅读(486) 评论(0) 推荐(0)

2018年6月14日

delphi const

摘要： //Const关键字用于声明常量, 使用const声明的数据将不能在程序中被改变. //也可以用来声明函数参数, 用const指定的参数不允许在函数中改变. const MyFileName = 'Delphi'; const MyInteger = 100; //用Const声明常量不需要指出其数阅读全文

posted @ 2018-06-14 10:38 夏天的西瓜君阅读(546) 评论(0) 推荐(0)

delphi as

摘要： //As用于将一个对象转换为另一个对象 procedure BtnClick(Sender:TObject); begin (Sender as TButton).Caption := 'Clicked'; end; //对于对象填充接口的转换, 必须用As进行 (HTTPRIO as IExp). 阅读全文

posted @ 2018-06-14 10:22 夏天的西瓜君阅读(385) 评论(0) 推荐(0)

西瓜的夏天

公告