*类的公开属性（代码）
示例：访问类的published属性
说明：vmtFieldTable（Published Field表）指向Published Field表有序排列，只存储当前类的PublishedField表，得到父类的Published Field表需要往上遍历。
注意：只有类型是类或接口的数据成员才可定义为published的访问级别
代码：
type
TMyObject = class(TObject)
private
FField1: Integer;
FField2: string;
FField3: array[0..2] of Integer;
published
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
AObject: TMyObject;
//---
procedure _ShowDMTInfo(ALines: TStrings; AClass: TClass);
& ......
function BrowseCallbackProc(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer; stdcall;
begin
if uMsg = BFFM_INITIALIZED then
begin
SendMessage(Wnd, BFFM_SETSELECTION, 1, lpData);
SetWindowText(Wnd, '选择一个目标');
end;
Result := 0;
end;
//hdl: 窗口句柄
//Root: 根目录
//InitDir: 初始化路径
//Hint: 对话框提示语句
function fBrowseFolder(hdl:THandle; const Root: String; const InitDir: string;
Hint: string = '请选择文件夹'): string;
var
Info:TBrowseInfo;
Dir:array[0..260] of char;
ItemId, RootItemIDList:PItemIDList;
Eaten, Attribute: Cardinal;
ID: IShellFolder;
begin
FillChar(Info, SizeOf(TBrowseInfo), #0);
with Info do
begin
hwndOwner := hdl;
SHGetDesktopFolder(ID);
ID.ParseDisplayName(hdl, nil, POleStr(WideString(Root)), Eaten, RootItemIDList, Attribute);
pidlRoot := RootItemIDList;
pszDisplayName := nil;
lpszTitle:= PChar(Hint);
ulFlags:=BIF_RETURNONLYFSDIRS + BIF_NEWDIALOGSTYLE; //如� ......
在讨论这个话题之前，必须要说明的是，如果你刚学习delphi，请不要模仿，因为谈不上转型；如果你用delphi已经成习惯，并且熟悉html语言、有BS结构基础、对JAVA语法没有障碍（如果你看不懂简单的基础JAVA代码，建议你还是继续你的d吧），希望这段内容对你有所帮助，此话题不讨论具体技术，只说说我的学习步骤和心得。
1、 不管你多老，多少年的工作经验，请先把面子装到裤兜里，因为很少有人对一个不谦虚的家伙有足够的耐心去教他学习JAVA，因为你会发现你遇到的问题真的很多(自认为学C的时候都没这么多)，而且无从下手。
2、 买本struts+spring+hibernate架构方面的书，最好有配套的源码光盘，先了解了解struts、spring、hibernate基础的知识，看不懂的就上网查，查不到的就找人问，尽量避免在一个小问题上浪费太多的时间。
3、 配置java开发环境，网上有很多环境配置说明，照着例子一步一步做，别告诉我你连例子也找不到。
4、 熟悉eclipse开发工具，现在大家都用myeclipse，所以你必须知道myeclipse给你开发j2ee项目能带来什么，掌握怎么新建web工程、怎么发布、照着例子先做一个纯jsp页面的helloword!,以确保你的开发环境正常。
5、 导入源码中的例子，学习调试和发布 ......
本书通过典型的实例，系统地介绍了Delphi典型组件的基本使用方法和一些使用技巧。每一个实例都提供了程序的源代码、操作步骤，并且在一些特殊的实例中注明了知识点。力争使读者通过阅读实例后，可以较好地掌握每一个知识点。 本书分为五章，内容由浅入深、循序渐进，适用于初级用户和院校师生学习参考。 下载阅读边用边学Delphi编程，来自IT电子图书馆 ......
本书以实例为主线，辅以必要的技术背景要点来讲解Delphi 6．0编程的精髓；本书实例偏重于多媒体和网络程序开发，其中涉及到OpenGL、Indy组件、XML、Web Broker和WebSnap等技术。本书还讲述了Delphi中的SQL编程，在两个短小精练的程序中充分运用了Delphi数据开发技术，包括BDE组件的ADO组件的使用。通过本书，让读者在编程过程中充分享受编程的乐趣，同时掌握最新的编程思想。 本书在选材和编写中主要顾及具有一定Delphi编程经验的读者。由于本书以实例形式讲解Delphi 6．0的使用，所以对于初学者理解Delphi 6．0的应用程序开发也是很有益处的。 下载阅读Delphi 6.0高级编程，来自IT电子图书馆 ......
Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
前言:
所谓"流", 就是一段数据或是一块内存;
在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性:
Size、Position.
对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write.
在很多控件的使用中, 读取主要用 LoadfromStream; 写入主要用 SaveToStream.
举个例子: (建立新工程, 添加两个 Memo、两个 Button)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
mStream: TStream; {声明一个流对象}
procedure TForm1.FormCreate(Sender: TObject) ......
最新文章 : delphi