给解释下delphi的一个自定义函数

来源：百度知道 编辑：UC知道 时间：2024/06/01 23:02:09
//获取数据表某个字段全部值函数的实现
function GetFieldValue(const tblTableName:TDataSet;strFieldName: string):TStrings;
var
TableRecordNum: Integer;
begin
Result:=TStringList.Create;//创建字符串列表
Result.Clear;//清空字符串列表
TableRecordNum := tblTableName.RecNo;//数据表记录数
tblTableName.First;
while not tblTableName.EOF do
begin
Result.Add(tblTableName[strFieldName]);//向字符串列表添加只段值
tblTableName.Next;
end;
tblTableName.MoveBy(TableRecordNum);
end;

TStringList怎么来的？在哪定义的？什么意思？
tblTableName.RecNo中的RecNo是什么意思？
Result呢？
tblTableName.MoveBy(TableRecordNum);呢？
谢谢高手。

Result:=TStringList.Create;//创建字符串列表
因为你看你这个函数的返回值是TStrings，而tstrings是一个抽象类，不能实例化的，所以必须用它的子类来实例化，所以这里采用了TStringList。不信你去看一下vcl继承关系就能给看出来了。
你把鼠标放在TStringList上选择帮助就可以查看，这是系统定义的类，这个语句表示建立一个这个类的实例（变量）并初始化。

tblTableName是你的程序定义的一个变量，这个变量具体有RecNo等哪些字段要看你自己的程序，是什么含义更好全面分析你的程序，写程序的人知道。

Result:=TStringList.Create;//创建字符串列表
你把鼠标放在TStringList上选择帮助就可以查看，这是系统定义的类，这个语句表示建立一个这个类的实例（变量）并初始化。

tblTableName是你的程序定义的一个变量，这个变量具体有RecNo等哪些字段要看你自己的程序，是什么含义更好全面分析你的程序，写程序的人知道。