2016年3月17日
Delphi中WebBrowser自动填表模板
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,MSHTML, SHDOCVW,IdGlobal;type TM Read More
posted @ 2016-03-17 18:00 findumars Views(2233) Comments(0) Diggs(0)
对TMemoryStream的一些改进（用到了LockFile）
对TMemoryStream的一些改进 怎么又是关于Stream的，呵呵，应该说只是最近比较关心程序的效率问题，而我对Stream其实并没有什么特别的研究，只是自己发现了一些新的用法，希望能对大家有用而已。 事情的起因还是那个破烂电子相册软件，今天又发现了一个可改进之处，有一段程序我原来是这么写的： Read More
posted @ 2016-03-17 17:59 findumars Views(331) Comments(0) Diggs(0)
用Delphi画圆角Panel的方法（使用CreateRoundRectRgn创造区域，SetWindowRgn显示指定区域）
用Delphi画圆角Panel的方法： procedure TForm1.Button5Click(Sender: TObject);var fhr :Thandle;beginfhr:=CreateRoundRectRgn(0,0,panel1.width,panel1.height,4,4);S Read More
posted @ 2016-03-17 17:45 findumars Views(2298) Comments(0) Diggs(0)
Delphi5的System.pas只有11514行
Delphi5的System.pas只有11514行（不包含update2），是研究RTL的好材料 相比之下，Delphi6的System.pas只有18118行Delphi7的System.pas只有17975行 至于Controls.pas，各版本差不多，都是1万行作用。 Read More
posted @ 2016-03-17 06:08 findumars Views(427) Comments(0) Diggs(0)
Delphi动态申请数组内存的方法（不使用SetLength，采用和C相似的方式）
procedure TForm1.Button1Click(Sender: TObject);type TArr = array [0..0] of Integer; PArr = ^TArr;var arr: PArr; i: Integer;begin GetMem(arr, 100); for Read More
posted @ 2016-03-17 02:02 findumars Views(1308) Comments(0) Diggs(0)