delphi 两个有意思的函数

此函数可以用variant返回多个字段的值

function TDataSet.GetFieldValue(const FieldName: string): Variant;

var
  I: Integer;
  Fields: TList;
begin
  if Pos(';',FieldName) <> 0 then
  begin
    Fields := TList.Create;
    try
      GetFieldList(Fields,FieldName);
      Result := VararrayCreate([0,Fields.Count - 1],varVariant);
      for I := 0 to Fields.Count - 1 do
        Result[I] := TField(Fields[I]).Value;
    finally
      Fields.Free;
    end;
  end else
    Result := FieldByName(FieldName).Value

end;

---此函数可以返回FieldNames中多个字段中第pos个字段的字段名，在db文件中；ps：我手里有一组api，也是类似功能。应该比它更强大，因为接口有Mask字段，不知道性能怎么样？

ExtractFieldName(FieldNames,Pos)；

--可以在不影响dataset游标的情况下返回指定的值--ps：太爽啦，找了几年这个函数，终于找到了。

function Lookup(const KeyFields: String; const keyvalues: Variant; const ResultFields: String): Variant; override;