权限问题请教

Question

可以先读权限，再添加combobox选项

Answer 1

动态数组
var  A, B: array of Integer;
begin
  SetLength(A, 1);
  A[0] := 1;
  B := A;
  B[0] := 2;
end;

Answer 2

第3行的后一句没看懂！什么意思呀！
在窗体上放一个edit1,combobox1,botton1，然后
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='1' then
   begin
   combobox1.Items.Clear;
   combobox1.Items.Add('a');
   end;
if edit1.Text='2' then
   begin
   combobox1.Items.Clear;
   combobox1.Items.Add('b');
   end;
end;

Answer 3

第3行的后一句没看懂！什么意思呀！
在窗体上放一个edit1,combobox1,botton1，然后
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='1' then
   begin
   combobox1.Items.Clear;
   combobox1.Items.Add('a');
   end;
if edit1.Text='2' then
   begin
   combobox1.Items.Clear;
   combobox1.Items.Add('b');
   end;
end;

Answer 4

在表中加一个权限字段，用select * from Tablename where pri=:1