将DBGrid中FighterID存入一维数组遇Delphi编译错误，求解决方案

错误原因分析 #

• 编译错误E2010 Incompatible types：原代码在赋值语句中错误嵌套了另一个赋值操作（FieldName:=('FighterID')），属于语法错误。
• 逻辑错误：SQL查询未包含FighterID字段，无法获取目标值；同时混淆了Query和Table的使用，排序操作和数据读取对象不统一。
• 值获取方式错误：通过DBGrid列名无法直接读取当前行字段值，应直接从数据集（Query）中获取。

修正后的代码示例 #

procedure TPresetsForm.FormActivate(Sender: TObject);
var 
  I: Integer;
begin
  // 初始化Query，确保查询包含FighterID并按Wins降序排序
  qry1.Close;
  qry1.SQL.Clear; // 清空原有SQL，避免重复添加
  qry1.SQL.Add('SELECT FighterID, FighterName, Wins, Sponser FROM Preset_Fighters ORDER BY Wins DESC');
  qry1.Open;

  // 遍历数据集，将FighterID存入一维数组（假设Fightorder为已定义的1-6下标字符串数组）
  I := 1;
  while not qry1.Eof and (I <= 6) do
  begin
    Fightorder[I] := qry1.FieldByName('FighterID').AsString;
    qry1.Next;
    Inc(I);
  end;

  qry1.Close; // 用完数据集后关闭
end;

关键说明 #

• SQL语句修正：必须在SELECT中加入FighterID，同时用ORDER BY Wins DESC在数据库层面完成排序，效率更高且逻辑清晰，无需依赖Table的Sort属性。
• 数据集遍历：用while not qry1.Eof循环遍历数据，既不会超出数据集范围，又能限制最多取6条数据（和你原循环范围一致）。
• 字段值获取：通过qry1.FieldByName('FighterID').AsString直接读取Query当前行的FighterID值，这是Delphi读取数据集字段的标准方式。
• 数组前提：确保Fightorder已定义为一维字符串数组，比如在合适位置声明：var Fightorder: array[1..6] of string;（或作为类字段）。

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