Question

Delphi程序。下面程序什么意思， GetDataSetText有什么作用，DataSet是什么

procedure TFqExlIn.qqTypeInAfterScroll(DataSet: TDataSet);
begin
GetDataSetText(DataSet);
end;
procedure GetDataSetText(DataSet: TDataSet);
var
index:Integer;
begin
for Index := 0 to DataSet.FieldCount - 1 do
begin
if ((DataSet.Fields[Index].DataType=ftString) or(DataSet.Fields[Index].DataType=ftwideString))
and (not(DataSet.Fields[Index].IsNull) or (Trim(DataSet.Fields[Index].AsString)<>'')) then
DataSet.Fields[Index].OnGetText:=fSysDM.qSysPara_DChNameGetText;
end;
end;

Answer 1

自定义的函数，要把这个函数的内容贴出来才知道什么作用
根据函数的定义，当字段类型是ftstring或者ftwidestring，且不为空字符的时候，将字段的OngetText事件赋值为fSysDM.qSysPara_DChNameGetText;

OngetText事件的具体内容，还要看fSysDM.qSysPara_DChNameGetText
里面怎么写的

Answer 2

按住ALT+鼠标左键点击这个函数就可以知道这个函数的具体做什么用，TDateSet是数据库方面的类，可能是数据源，具体的记不太清楚了。 这个函数看字面应该是获取数据源的地址之类的吧。。

如满意请采纳，如有问题请追问。

Answer 3

第一个过程, 应该是一个TADOQuery类实例的AfterScroll事件, 滚轮滚动或者方向键改变所选记录时都会执行一次GetDataSetText(DataSet);[如下功能]

判断了2个字段的数据类型和值是否为空
满足条件则进行赋值, 赋值的是方法[事件]。
Type
TMProc = Procedure(ADataSet: TDataSet); stdcall;

Answer 4

获取查询到的数据库中的内容吧