《Delphi 算法与数据结构》: 数据对齐
为了加快硬件的访问速度, 编译器通常要使用"数据对齐", 譬如:
//下面结构中: SizeOf(TRec) = 6; 因为 b 在这里也要占 2 字节.
TRec = record
a: Word;
b: Byte;
c: Word;
end
;
//下面结构中: SizeOf(TRec) = 16; 这里的 a 和 b 共占了 8 个字节.
TRec = record
a: Byte;
b: Byte;
c: Double;
end
;
//下面结构中: SizeOf(TRec) = 8; 这里的 a 和 b 共占了 4 个字节.
TRec = record
a: Byte;
b: Byte;
c: Integer;
end
;
//下例使用了结构压缩(压缩后就对不齐了), 它们的大小会分别是: 2、1、8 字节
TRec = packed
record
a: Word;
b: Byte;
c: Double;
end
;
下面是一个测试:
unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class
(TForm)
Memo1: TMemo;
procedure
FormCreate(Sender: TObject);
end
;
var
Form1: TForm1;
implementation
{$R *.dfm}
type
rec1 = record
x: Integer;
y: Integer;
z: Integer;
end
;
rec2 = record
x: Integer;
y: Byte;
z: Integer;
end
;
rec3 = packed
record
x: Integer;
y: Byte;
z: Integer;
end
;
procedure
TForm1.FormCreate(Sender: TObject);
const
DashLine = '----------------------------------'
;
var
r1: rec1;
r2: rec2;
r3: rec3;
begin
Memo1.Align := alClient;
Memo1.Clear;
Memo1.Lines.Add(Format('rec1 结构的大小是: %d'
, [SizeOf(rec1)]));
Memo1.Lines.Add(Format('rec2 结构的大小是: %d'
, [SizeOf(rec2)]));
Memo1.Lines.Add(Format('rec3 结构的大小是: %d'
, [SizeOf(rec3)]));
Memo1.Lines.Add(DashLine);
Memo1.Lines.Add(Format('r1 中 x 的地址是: %d'
, [Integer(@r1.x)]));
Memo1.Lines.Add(Format('r1 中 y 的地址是: %d'
, [Integer(@r1.y)]));
Memo1.Lines.Add(Format('r1 中 z 的地址是: %d'
, [Integer(@r1.z)]));
Memo1.Lines.Add(DashLine);
Memo1.Lines.Add(Format('r2 中 x 的地址是: %d'
, [Integer(@r2.x)]));
Memo1.Lines.Add(Format('r2 中 y 的地址是: %d'
, [Integer(@r2.y)]));
Memo1.Lines.Add(Format('
相关文档：
显示一个GIF动画
procedure ShowGIF( GIFFileName : String );
var TargetFrameName,PostData,Heads,Flags : OleVariant; URL : widestring; begin TargetFrameName := '';{指定Frame的空字符串时,则在当前Frame中打开动画文件} PostData := false;{不发送数据} Heads := '';{Header信息为空} Flags := 0;{Flags设为0} ......
输入验证码 一个文本框 24字母随机出4个字母 然后用户
输入所随机出的字母 输入正确 进入界面。。错误又随机下。。。
*/
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
lbl1: TLabel;
Edit1: TEdit; ......
uses Tlhelp32;
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLean;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(T ......
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelApp.Visible := True;
2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelApp.WorkBooks.Add ......
Delphi第三方控件安装卸载指南
基本安装
1、对于单个控件，Componet-->install component..-->PAS或DCU文件-->install;
2、对于带*.dpk文件的控件包，File-->Open(下拉列表框中选*.dpk)-->install即可；
3、对于带*.bpl文件的控件包，Install Packages-->Add-->bpl文件名即可；
4、如� ......
