Delphi10 ObjectPascal：如何访问ADODataSet单条记录的字段

嘿，恭喜你已经搞定数据库连接和Grid显示啦！针对你想快速访问单条记录字段的需求，这里有几个直接又实用的方案：

直接访问字段（最简便） #

既然已经确认MyFrame.ADOQuery1.RecordCount = 1，那打开数据集后，指针默认就指向这条唯一的记录，直接通过字段名或索引就能拿到值：

• 按字段名访问（可读性最高，推荐）：

  // 获取字符串类型字段
  var userName: string;
  userName := MyFrame.ADOQuery1.FieldByName('username').AsString;
  
  // 获取整数类型字段
  var userID: Integer;
  userID := MyFrame.ADOQuery1.FieldByName('user_id').AsInteger;
  
  // 其他类型同理：AsDateTime、AsBoolean、AsFloat等
  

• 按字段索引访问（适合字段顺序固定的场景）：
  索引从0开始，对应你SQL语句中返回字段的顺序：

  var firstFieldValue: string;
  firstFieldValue := MyFrame.ADOQuery1.Fields[0].AsString;
  

封装成你想要的ReturnRecord风格 #

如果想更贴近你期望的MyRecord[] := MyFrame.ADOQuery1.ReturnRecord用法，可以自己封装一个属性或函数：

方案1：直接暴露数据集属性 #

在你的Frame类里添加一个只读属性：

type
  TMyFrame = class(TFrame)
    ADOQuery1: TADOQuery;
    // ...其他组件
  private
    { Private declarations }
  public
    { Public declarations }
    property CurrentRecord: TADODataSet read ADOQuery1;
  end;

之后就能这样调用：

var userEmail: string;
userEmail := MyFrame.CurrentRecord.FieldByName('email').AsString;

方案2：返回自定义记录类型 #

如果想把字段映射到一个强类型的记录里，更符合面向对象的思路：

// 先定义你的记录类型（可以放在Frame类的接口部分）
type
  TUserRecord = record
    ID: Integer;
    Username: string;
    Email: string;
    CreateTime: TDateTime;
  end;

// 在Frame类里添加获取记录的函数
function TMyFrame.GetUserRecord: TUserRecord;
begin
  // 先确保数据集不为空（虽然你已经确认是1条，但加个判断更稳妥）
  if ADOQuery1.IsEmpty then
    raise Exception.Create('无记录可读取');

  Result.ID := ADOQuery1.FieldByName('user_id').AsInteger;
  Result.Username := ADOQuery1.FieldByName('username').AsString;
  Result.Email := ADOQuery1.FieldByName('email').AsString;
  Result.CreateTime := ADOQuery1.FieldByName('create_time').AsDateTime;
end;

调用时就完全符合你的预期了：

var currentUser: TUserRecord;
currentUser := MyFrame.GetUserRecord;

// 之后可以直接用currentUser.ID、currentUser.Username这样访问

最后提醒下：如果你的ADOQuery是动态打开的，记得确保在访问字段前已经调用了Open方法哦！

内容的提问来源于stack exchange，提问作者AlwaysLearning