将某些数据从DBGrid保存到数组中

yeotifhr 于 2022-10-16 发布在其他

关注(0)|答案(1)|浏览(176)

我想寻求帮助。
我的任务是将FighterID保存到数组中。这些数据将被用来制作战斗机1，战斗，战斗机2(数据已经根据他们的胜利按降序排序)。
我只能找到使用2D数组的方法，我希望Tom使用1维数组。
我不知道如何将特定的列信息保存到数组中。我尝试了以下操作，得到以下错误：
[dcc32错误]Presets.pas(53)：E2010不兼容的类型：‘字符串’和‘过程、非类型化指针或非类型化参数’
代码：

procedure TPresetsForm.FormActivate(Sender: TObject);
    var I:integer;
    var s:string;
begin
    qry1.Close;
    qry1.sql.add('SELECT FighterName,Wins,Sponser FROM Preset_Fighters');
    qry1.Active := true;

    qry1.Open;
    tbl111.Sort:= 'Wins DESC' ;

    for I := 1 to 6 do
    begin
        Fightorder[I]:=(Presets.PresetsForm.dbgrd_info.Columns[0].FieldName:=('FighterID');
    end;
end;

我不知道这是否是获取FighterID示例(MT54)的正确方法。
所有数据都来自MS Access，我希望我提供了足够的信息
谢谢你的帮助，XD

delphi

来源：https://stackoverflow.com/questions/74067104/saving-certain-data-into-an-array-from-a-dbgrid

1条答案

按热度按时间

t9aqgxwy1#

请尝试以下代码：

var
  Fightorder: array[1..6] of string;

procedure TPresetsForm.FormActivate(Sender: TObject);
var
  I: Integer;
begin
  qry1.Close;
  qry1.Sql.Add('SELECT FighterName, Wins, Sponser FROM Preset_Fighters');
  qry1.Active := True;
  qry1.Open;
  for I := 1 to 6 do
  begin
    Fightorder[I] := qry1.Fields[0].AsString;
    qry1.Next;
  end;
end;

我想这会帮你弄清楚的。

赞(0）回复(0）举报 2022-10-16

我来回答

将某些数据从DBGrid保存到数组中

1条答案

相关问题

热门标签

最新问答