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

Question

我想寻求帮助。

我的任务是将FighterID保存到一个数组中。这些数据将用于制作战斗机1、战斗机2(数据已经根据获胜情况按降序排列(。

我只能用2D阵列找到方法，我希望使用一维阵列。

我不知道如何将特定列的信息保存到数组中。我尝试了以下操作，得到了以下错误：

[dcc32错误]预设。pas(53(：E2010不兼容的类型："字符串"one_answers"过程、非类型指针或非类型参数">

代码：

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 的帮助

Answer 1

请尝试以下代码：

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;

我想这会帮你弄清楚的。