我尝试使用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;