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’
相关文档：
delphi很早就已经可以进行三层的开发了. 但一直到现在, 网上这方面的东西太少 了. 要么太老, 甚至不完全正确. 例如:
如何进行多表更新(提交), 很多回复还是说用ADOConnection的事务, (如果要同时更新SQL SERVER和Oracle数据库的表怎么办).
当然也有说用SetComplete, SetAbort的. 但说的很简单, 其中的注意事项又是� ......
1.因为KeyPreview默认是 False;我们这里需要响应键盘事件的话，需要将其修改为True；
所以KeyPreview:=True; 这对一些快捷键会有用。
在窗体属性上修改KeyPreview := True;
2.在窗体的FormKeyDown函数里写：
if KeyPreview then
Form将先响应键盘事件（在TEdit等控件之前）
else
除非Fo ......
由于组件提供的方式不同，所以安装的方法也是不一样的，下面就目前常见的各种形式的组件的安装方法介绍一下。
1、只有一个dcu文件的组件。dcu文件是编译好的单元文件，这样的组件是作者不想把源码公布。一般来说，作者必须说明此组件适合delphi的哪种版本，如果版本不对，在安装时就会出现错误。也正是因为没有源码，给� ......
*类的公开属性（代码）
示例：访问类的published属性
说明：vmtFieldTable（Published Field表）指向Published Field表有序排列，只存储当前类的PublishedField表，得到父类的Published Field表需要往上遍历。
注意：只有类型是类或接口的数据成员才可定义为published的访问级别
代码：
type
TMyO ......
Delphi 中流的使用(1) 用 TMemoryStream(内存流) 入门
前言:
所谓"流", 就是一段数据或是一块内存;
在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性:
Size、Position.
对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write.
在很多� ......
