怎样由 8 个 Button 的是否按下状态 生成 象11001100这样的8位字符数

Question

怎样由 8 个 Button 的是否按下状态  生成 象11001100这样的8位字符数  有没有   简单一点的算法

Answer 1

利用tagprocedure TForm1.Button1Click(Sender: TObject);
begin
  (Sender as TButton).Tag :=1;
  
  //以下取字串
  //..........
end;

Answer 2

function F(b:boolean):string;
begin
  if b then result='1'
  else result='0';
end;
如果你用的是speedbutton的话。
begin
  R=f(button1.down)+f(button2.down)+f(button3.down)+...+f(button8.down);
end;