Delphi 中将对象作为参数传递的使用
Delphi 中将对象作为参数传递的使用 举例分析
2009-07-24 13:40
下面的单击事件，将要调用一个以对象为参数的方法，并将结果显示出来。
procedure TForm1.btn1Click(Sender: TObject);
var
lStrings: TStrings;
begin
lStrings:= TStringList.Create;
try
lStrings.Add('chen');
GetOperatorAllDeptIDs(lStrings);
ShowMessage(lStrings.Text);
finally
lStrings.Free;
end;
调用方法一：
function GetOperatorAllDeptIDs( AStrings: TStrings):String;
begin
//注释 AStrings:= TStringList.Create;
AStrings. Add('zhi');
end;
返回结果为：chen zhi
分析：此时传递的AStrings 为lStrings对象的对象引用副本，即也指向对象lStrings，所以当执行AStrings. Add('zhi');时操作为lStrings对象添加‘zhi’。
调用方法二：
function GetOperatorAllDeptIDs( var AStrings: TStrings):String;
begin
//注释 AStrings:= TStringList.Create;
AStrings. Add('zhi');
end;
返回结果为：chen zhi
分析：此时传递的AStrings 为lStrings对象的对象引用，当执行AStrings. Add('zhi');时操作的对象为lStrings对象。
调用方法三：
function GetOperatorAllDeptIDs( AStrings: TStrings):String;
begin
AStrings:= TStringList.Create;
AStrings. Add('zhi');
end;
返回结果为：chen
分析：此时传递的AStrings 为lStrings对象引用的副本，当方法中执行AStrings:= TStringList.Create;又将对象引用副本 的引用指向了此时新建的一个对象，所以此时对AStrings的任何操作已经不会影响lStrings对象。
调用方法四：
function GetOperatorAllDeptIDs( var AStrings: TStrings):String;
begin
AStrings:= TStringList.Create;
AStrings. Add('zhi');
end;
返回结果为：zhi
分析：此时传递的AStrings 为lStrings对象的对象引用，当方法中执行AStrings:= TStringList.Create;时， lStrings这个对象引用指向了新建的AStrings对象。所以，lString的值为’Zhi’
相关文档：
索引是itemindex
item是里面的内容
索引的话，是从0开始
item itemindex
A 1
B 2
C 3
listbox1.items.count就是这个列表框里总共有多少项. ......
//声明:
GetWindowText(
hWnd: HWND; {窗口句柄}
lpString: PChar; {接收文本的缓冲区的指针}
nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}
): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}
//举例:
var
arr: ......
1.因为KeyPreview默认是 False;我们这里需要响应键盘事件的话，需要将其修改为True；
所以KeyPreview:=True; 这对一些快捷键会有用。
在窗体属性上修改KeyPreview := True;
2.在窗体的FormKeyDown函数里写：
if KeyPreview then
Form将先响应键盘事件（在TEdit等控件之前）
else
除非Fo ......
*类的公开属性（代码）
示例：访问类的published属性
说明：vmtFieldTable（Published Field表）指向Published Field表有序排列，只存储当前类的PublishedField表，得到父类的Published Field表需要往上遍历。
注意：只有类型是类或接口的数据成员才可定义为published的访问级别
代码：
type
TMyO ......
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: 根� ......
