百钱买百鸡过程。 procedure TForm1.Button1Click(Sender: TObject); var hen, cock, chick: integer; answer: string; begin for cock:=0 to 20 do for hen:=0 to 33 do begin chick:=100-hen-cock;//鸡雏的数目 if chick mod 3 = 0 then//鸡雏的数目必须是3的倍数 if cock*5+hen*3+chick div 3
标签： VCL
FMX下与VCL下遍历控件的差异问题
一直都在VCL下写桌面程序，习惯了VCL的语句。 采用FMX写个APP要遍历一次窗体的复选框checkbox有多少处于选中状态，并显示出来。 用Vcl的代码是： procedure TForm1.btn1Click(Sender: TObject); var i: Integer; varstr: string; begin with Form1 do for i := 0 to ComponentCount – 1 do begin if ((Components[i] is T