举例: var i: Integer; d: Real; begin i := Trunc(1234.5678); {截取整数} ShowMessage(IntToStr(i)); {1234} i := Trunc(-1234.5678); ShowMessage(IntToStr(i)...

早就想知道浮点数的存储原理; 从 Single 开始理解. Single(单精度浮点数 - 32 位): s e f 1 8 23 如浮点数: 13.625 (1*10 1 + 3*10 0 + 6*10 -1 + 2*10 -2 + 5*10 -3) 其二进制表示是: 1101....

//声明: GetNextWindow( hWnd: HWND; {指定的窗口句柄} uCmd: UINT {指定的关系选项} ): HWND; {失败返回0; 成功返回符合的窗口句柄} //uCmd 可选值: GW_HWNDNEXT = 2; ...

//声明: CreatePen( Style, Width: Integer; {样式与笔宽} Color: COLORREF {颜色} ): HPEN; {返回笔句柄} //Style 参数可选值: PS_SOLID = 0; {实...

FillGeometry() 可通过两个画刷的重叠运算获取蒙版效果，作为蒙版画刷的渐变色中应该至少有一个透明色。 使用放射渐变画刷做蒙版： uses Direct2D, D2D1, Wincodec, ActiveX; {从指定文件...

StrAlloc : 给 PChar 指针分配空间, 并填充 #0; StrBufSize : PChar 缓冲区大小. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Class...

获取类型大小的变量最好不是 int 类型, 而是 size_t 类型; size_t 在 stdio.h、stddef.h 都有定义. 1. 获取已知类型的大小: #include <stdio.h> #include <stddef.h> int main(void) { ...

Math 和其他类不同, 它没有建立方法(不能这样使用: new Math()), 它的所有方法都是静态的(都得挂名调用). Math.abs; //绝对值 Math.max; //两个数中的大者 Math.min; //两个数中的...

有了一系列的 Helper, Delphi 也可以使用链式代码了. //譬如要把 3.1415926 中的 141 提取为一个整数: var num: Integer; begin num := Pi.ToString().Split(['.'])[1].Substring(0,...

//小写字母转大写字母 function Fun1(C: Char): Char; asm sub C, 32 //sub C, 'a'-'A' {竟也可以这样写} end; //大写字母转小写字母 function Fun2(C: Char): Char; asm ...

问题来源: http://www.cnblogs.com/del/archive/2008/12/26/1269606.html#1414232 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Cl...

提示: 错误文本的长度一般不超过 MAXERRORLENGTH = 128; 如果缓冲区太小, 文本会被截断. //声明: midiInGetErrorText( mmrError: MMRESULT; {错误号} lpText: PChar; {缓冲区} ...

TClientDataSet.Data { 数据的二进制格式的描述 } TClientDataSet.XMLData { 数据的 XML 格式的描述 } //先在窗体上放置 ClientDataSet1、Memo1 和三个按钮 uses XM...

其实 Delphi 2006 就已经支持运算符重载了, 不过 for Win32 的版本只是在 record 里支持. 运算符重载有什么用处呢? 举个例子: 譬如 "张三"、"李四" 两人一起来拜见你, 你可能会问: "你们两个...

SuperObject 的 JSON 对象中还可以包含 "方法", 这太有意思了; 其方法的格式是: procedure Method(const This, Params: ISuperObject; var Result: ISuperObject); //另外, 这是其数据类型...

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button...

<?xml version="1.0" standalone="no"?> <!DOCTYPE score-partwise PUBLIC "-//Recordare//DTD MusicXML 3.0 Partwise//EN" "http://www.musicxml.org/dtds/partwise.dtd"> <score-partwis...

function TColorToHex(Color: TColor): string; begin Result := IntToHex(GetRValue(Color), 2) + IntToHex(GetGValue(Color), 2) + IntToHex(GetBValue(Color), 2); e...