我正尝试使用SQL将用户在TChecklistBox中选择的字段显示到TDBGrid上。

我认为数组可能会有所帮助。这是我的代码，它不会执行：

Var

arrFields : array [1..9] of string = ('UserId','Surname','Name','EMail','Gender','DOB','ContinentOfOririn','Passport','IDNumber');
implementation

{$R *.dfm}

procedure TfrmUsersMan.pnlDisplayClick(Sender: TObject);
Var
I: Integer;
arrTempArray: Array [1..10] of String;
begin

for i := 0 to chkDisplay.Items.Count - 1 do
  begin
    if chkDisplay.Checked[i] then
      arrTempArray[i+1]:='Checked';

    With dmTourists  do
      begin
        qryUsers.active:=False;
        qryUsers.SQL.Clear;
        qryUsers.SQL.Add('SELECT ''arrFileds[i]'' FROM tblUsers WHERE ''(arrTemp[i+1]=Checked)''');
        qryUsers.active:=True;
      end;
  end;

end;
End;