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]));
相关文档：
一、引子：
现在的Windows应用程序几乎都使用图标、图片、光标、声音等，我们称它们为资源（Resource）。最简单的使用资源的办法是把这些资源的源文件打入软件包，以方便程序需要的时候调用。资源是程序的一部分，程序要正常运行就离不了资源文件。但是它是不可执行代码。
&n ......
delphi保存读取utf-8的文本文件
给客户做了一个批量识别图像并合成双层pdf的程序，最后客户需要生成的同时附带一份记事本文件，就是OCR过后的文本，并指定utf-8格式的。在处理utf-8时出现了点小问题，现在总结如下
首先 利用delphi自带的UTF8Encode函数，将普通字符转换为utf-8编码
创建一个流，MemoryStream或FileStr ......
本文转载:http://rabbitfox.blog.sohu.com/29948084.html
http://delphi.about.com/od/fileio/a/fileof_delphi.htm
首先向作者表示感谢！
《利用Delphi的“File Of
Type”创建并管理属于你自己的“数据库”》
原作者� ......
FindWindow(
lpClassName, {窗口的类名}
lpWindowName: PChar {窗口的标题}
): HWND; {返回窗口的句柄; 失败返回 0}
//FindWindowEx 比 FindWindow 多出两个句柄参数:
FindWindowEx(
Parent: HWND; {要查找子窗口的父窗口句柄}
Child: HWND; {子窗口句柄}
ClassName: PChar ......
在窗体的OnMouseDown事件中加入下面几行代码即可
If Button = mbleft Then
begin
ReleaseCapture;
SendMessage(MainForm.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
end;
若窗体的表面被别的控件履盖掉，则需要把上面的代码加入履盖的控件里面。 ......
