Delphi 类与对象内存结构浅析(附件1)
附件资料
*类的内存信息（代码）
示例：获取类信息
说明：比对通过类地址以及通过类方法获取信息的效果。
代码：
type
TMyObject = class(TObject)
private
FData: Integer;
protected
procedure Test1;virtual;
procedure Test2;dynamic;
public
procedure Test;
published
procedure Test3;
end;
procedure TMyObject.Test;
var
i:Integer;
begin
ShowMessage('静态方法');
end;
procedure TMyObject.Test1;
begin
ShowMessage('虚方法');
end;
procedure TMyObject.Test2;
begin
ShowMessage('动态方法');
end;
procedure TMyObject.Test3;
begin
ShowMessage('published方法');
end;
procedure TForm1.Button1Click(Sender: TObject);
//---
{procedure _ShowClassInfo(ALines: TStrings; AClass: TClass);
begin
with ALines do
begin
Add(Format('类指针地址: %d ', [Integer(AClass)]));
//---
if AClass.ClassParent = nil then
Add('父类名: Nil')
else
Add(Format('父类名: %s', [AClass.ClassParent.ClassName]));
相关文档：
第一种方法,使用SelectDirectory 函数 ,在ShellApi中
procedure TForm2.BtSelectPathClick(Sender: TObject);
var
strCaption,strDirectory:String;
wstrRoot:WideString;
begin
strCaption:='这是浏览文件夹的说明文字，可以根据需要� ......
一、Dll建立
（一）DLL项目的建立
library mydll;
uses
base in 'base.pas';
exports
Triple name 'Tr';
{$R *.res}
begin
end.
（二）函数单元
unit base;
interface
uses windows;
function Triple(N:integer):integer;stdcall;
......
delphi保存读取utf-8的文本文件
给客户做了一个批量识别图像并合成双层pdf的程序，最后客户需要生成的同时附带一份记事本文件，就是OCR过后的文本，并指定utf-8格式的。在处理utf-8时出现了点小问题，现在总结如下
首先 利用delphi自带的UTF8Encode函数，将普通字符转换为utf-8编码
创建一个流，MemoryStream或FileStr ......
索引是itemindex
item是里面的内容
索引的话，是从0开始
item itemindex
A 1
B 2
C 3
listbox1.items.count就是这个列表框里总共有多少项. ......
由于组件提供的方式不同，所以安装的方法也是不一样的，下面就目前常见的各种形式的组件的安装方法介绍一下。
1、只有一个dcu文件的组件。dcu文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给� ......
