TObject

Int64 与 Currency

procedureTForm1.Button1Click(Sender:TObject); var c:Currency; i:Int64absolutec; begin c:=1234.5678
涂孟超·2014-09-26 15:00

指针的运算

//指针的运算仅对PChar类型 procedureTForm1.Button1Click(Sender:TObject); var p:PChar; begin p:='China'; Inc
涂孟超·2014-09-26 15:00

GdiPlus[31]: IGPPen: 自定义线帽

IGPAdjustableArrowCap测试效果图:IGPAdjustableArrowCap测试代码:usesGdiPlus; procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

Delphi 的绘图功能[10] - TFONT 类

//先来个例子: procedureTForm1.FormPaint(Sender:TObject); const S='万一的Delphi博客'; var font:TFont; begin
涂孟超·2014-09-26 15:00

创建 GUID

usesComObj,ActiveX; procedureTForm1.Button1Click(Sender:TObject); var Guid:TGUID; str:string;
涂孟超·2014-09-26 15:00

GdiPlus[8]: IGPTextureBrush 之 WrapMode 属性

示例图片:示例代码:usesGdiPlus; procedureTForm1.FormPaint(Sender:TObject); var Graphics:IGPGraphics; Image
涂孟超·2014-09-26 15:00

调用系统关于对话框

usesShellAPI; procedureTForm1.AbortClick(Sender:TObject); begin ShellAbout(0,'MySoft','Copyright
涂孟超·2014-09-26 15:00

文件路径相关的字符串操作

uses HTTPApp,Masks; procedureTForm1.Button1Click(Sender:TObject); var ss,s:string; begin //先提取一个文件名的字符串
涂孟超·2014-09-26 15:00

{$POINTERMATH ON} 方便指针操作的编译指令

//测试整数指针 procedureTForm1.Button1Click(Sender:TObject); var p:PInteger; i:Integer; begin {$POINTERMATHON
涂孟超·2014-09-26 15:00

时间的运算

procedureTForm1.Button1Click(Sender:TObject); var i:Real; begin i:=StrToDate('2008-1-1')-StrToDate
涂孟超·2014-09-26 15:00

理解 Delphi 的类(十) - 深入方法[21] - 开放数组参数

begin Result:=0; foriinarrdoResult:=Result+i; end; {测试1:} procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

如何比较两个二维数组是否相等 - 回复 "阿拉丁" 的问题

{对比静态数组} procedureTForm1.Button1Click(Sender:TObject); var arr1:array[0..3]ofAnsiChar; arr2:array
涂孟超·2014-09-26 15:00

再学 GDI+[12]: 准备工作 - 矩形命中

Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormMouseDown(Sender:TObject
涂孟超·2014-09-26 15:00

使用 IntraWeb (41) - 数据控件速查

TIWCustomControlTObject
涂孟超·2014-09-26 15:00

Delphi XE2 之 FireMonkey 入门(22) - 数据绑定: BindingSource、BindingName、FindBinding()、Binding[]

在窗体上添加TrackBar1、Edit1、Label1,然后设置属性(可在设计时):procedureTForm1.FormCreate(Sender:TObject); begin Edit1.
涂孟超·2014-09-26 15:00

RegularExpressions(3) RegularExpressions 的工作思路

AAA1BBB2AA11BB22A111B222AAAA可以用表达式:[A-Za-z]+\d+提取到前六个字串.测试代码:usesRegularExpressions; procedureTForm1.FormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

关于类的入门例子(3): Create 与 Destroy

//类单元 unitPerson; interface uses Dialogs; type TPerson=class(TObject) private FName:string
涂孟超·2014-09-26 15:00

TMainMenu 类[三] - 手动建立菜单(3) : 设定加速键

Classes,Graphics,Controls,Forms, Dialogs,Menus; type TForm1=class(TForm) procedureFormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

TClientDataSet[3]: 手动建立数据集

//放置控件:ClientDataSet1、DataSource1、DBGrid1、Button1,然后 procedureTForm1.Button1Click(Sender:TObject);
涂孟超·2014-09-26 15:00

Direct2D (9) : 显示图像

usesDirect2D; procedureTForm1.FormPaint(Sender:TObject); var cvs:TDirect2DCanvas; wic:TWICImage
涂孟超·2014-09-26 15:00

FireDAC 下的 Sqlite [6] - 加密

非常简单.const dbPath='C:\Temp\SQLiteTest.sdb'; {建立加密数据库,密码是mm123} procedureTForm1.FormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

NativeXml (7)：添加属性

usesNativeXml; procedureTForm1.Button1Click(Sender:TObject); var xml:TNativeXml; node:TXmlNode;
涂孟超·2014-09-26 15:00

一句话判断网络是否联通

usesWinInet; procedureTForm1.Button1Click(Sender:TObject); begin ifInternetGetConnectedState(nil
涂孟超·2014-09-26 15:00

如何把一个字符串填充到一个无类型的指针 - 回复 "豪杰的爸爸" 的问题

http://www.cnblogs.com/del/archive/2008/11/08/1329543.html#2016234procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

如何使用 PPChar - 回复 "DelphiFan" 的问题

www.cnblogs.com/del/archive/2008/11/08/1329543.html#2024604{引用} procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

理解 Delphi 的类(十) - 深入方法[3] - 调用时参数分割

Integer;y:Integer):Integer; begin Result:=x+y; end; {调用} procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

TClientDataSet[21]: 使用 ADT(Abstract Data Type) 字段

运行时://先在窗体上放置:DBGrid1、DataSource1、ClientDataSet1并关联,然后: procedureTForm1.FormCreate(Sender:TObject)
涂孟超·2014-09-26 15:00

NativeXml (11)：浮点数的有效位数

usesNativeXml; procedureTForm1.Button1Click(Sender:TObject); var xml:TNativeXml; fVal:Double;
涂孟超·2014-09-26 15:00

使用 IntraWeb (4) - 页面布局之 TIWRegion

usesSystem.UITypes;//为使用Anchors属性 {下面代码中的设置大都可以在设计时完成} procedureTIWForm1.IWAppFormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

Direct2D (35) : 通过 DirectWrite 获取字体列表

usesDirect2D,D2D1; procedureTForm1.Button1Click(Sender:TObject); var iFontCollection:IDWriteFontCollection
涂孟超·2014-09-26 15:00

判断字符串中子串个数的函数

Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

WinAPI: Polyline - 绘制一组连续线段

Polyline与Polygon的参数一模一样,但Polygon能自动闭合} //绘制连续直线Polyline procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

System.Assert 断言

var List:TStringList; procedureTForm1.FormCreate(Sender:TObject); begin //Assert(Assigned(List)
涂孟超·2014-09-26 15:00

Direct2D (25) : 将画笔线条所占用的区域转换为路径 - ID2D1Geometry.Widen()

usesDirect2D,D2D1; procedureTForm1.FormPaint(Sender:TObject); var cvs:TDirect2DCanvas; iGeometry
涂孟超·2014-09-26 15:00

使用 idHTTP 获取 UTF-8 编码的中文网页 - 回复同学 "Delphi学习者" 的问题

usesIdHTTP; constUrl='http://del.cnblogs.com'; procedureTForm1.Button1Click(Sender:TObject); var
涂孟超·2014-09-26 15:00

FireDAC 下的 Sqlite [7] - 备份、优化、事务(Transaction)

用TFDSQLiteBackup控件,两三行代码即可完成Sqlite数据库的备份.procedureTForm1.Button1Click(Sender:TObject); begin {先初始化目标
涂孟超·2014-09-26 15:00

Delphi 2009 新增的一个小函数: SysUtils.ByteLength

procedureTForm1.FormCreate(Sender:TObject); var str:string; begin str:='万一'; ShowMessageFmt('%d,
涂孟超·2014-09-26 15:00

TMainMenu 类[三] - 手动建立菜单(2) : 建立子菜单项

Classes,Graphics,Controls,Forms, Dialogs,Menus; type TForm1=class(TForm) procedureFormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

再学 GDI+[8]: DrawRectangles - 绘制一组矩形

,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

GdiPlus[20]: IGPPathGradientBrush 之 SetFocusScales

测试效果图:测试代码:usesGdiPlus; procedureTForm1.FormPaint(Sender:TObject); var Graphics:IGPGraphics; Brush
涂孟超·2014-09-26 15:00

WinAPI: InflateRect - 改变矩形大小

:TRect;{要修改的矩形} dx,dy:Integer{变化值} ):BOOL; //举例: procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

再学 GDI+[66]: 路径画刷(6) - SetInterpolationColors、GetRectangle

,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

再学 GDI+[41]: 文本输出 - 控制输出字符的个数

,Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

WinAPI: RoundRect - 绘制圆角矩形

Integer{点1、点2是构成矩形的坐标;X3是圆角宽度、Y3是圆角高度} ):BOOL; //举例: procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

TMainMenu 类[三] - 手动建立菜单(1)

Classes,Graphics,Controls,Forms, Dialogs,Menus; type TForm1=class(TForm) procedureFormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

Delphi 的绘图功能[12] - TPen 类(下) : 学习橡皮线

procedureTForm1.Button1Click(Sender:TObject); begin Canvas.Pen.Color:=clYellow;{指定笔颜色为黄色} Canvas.Pen.Width
涂孟超·2014-09-26 15:00

GdiPlus[15]: IGPLinearGradientBrush 之 GammaCorrection

Boolean值,默认False;为True表示启用了灰度校正.测试图中的第二个图形使用了灰度校正:测试代码:usesGdiPlus; procedureTForm1.FormPaint(Sender:TObject
涂孟超·2014-09-26 15:00

理解 Delphi 的类(十) - 深入方法[24] - 方法是一个指针

functionMyFun:string; begin Result:='ok'; end; {读取它们的指针} procedureTForm1.Button1Click(Sender:TObject
涂孟超·2014-09-26 15:00

操作 Wave 文件(7): 建立一个空的 Wave 文件(三种方法)

Classes,Graphics,Controls,Forms, Dialogs; type TForm1=class(TForm) procedureFormCreate(Sender:TObject
涂孟超·2014-09-26 15:00

TClientDataSet[14]: 测试 FindFirst、FindNext、FindLast、FindPrior、Found

//先在窗体添加ClientDataSet1和两个Button {初始化测试数据} procedureTForm1.FormCreate(Sender:TObject); begin withClientDataSet1dobegin
涂孟超·2014-09-26 15:00
上一页 22 23 24 25 26 27 28 29 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他