Я пытаюсь использовать 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;