if CheckBox1.click=true then Label1.visable=true...以此类推CheckBox是第几，Label1就是第几，怎么写？

Question

procedure TFrmNeAdd.RzCheckBoxClick(Sender: TObject);
beginend;

Answer 1

procedure TFrmNeAdd.RzCheckBoxClick(Sender: TObject);
var
  vLabel: TLabel;
begin
  vLabel := FindComponent('Label' +
    Copy(TCheckBox(Sender).Name, 9, MaxInt)) as TLabel;
  if Assigned(vLabel) then vLabel.Visible := TCheckBox(Sender).Checked;
end;

Answer 2

var
  i: integer;
  nam: string;
begin
  if TCheckBox(Sender).Checked = True;
  begin
    i := strtoint(Trim(Copy(TCheckBox(Sender).Name,9,3)));
    nam := 'Label' + inttostr(i);
    TLabel(FindComponent(nam)).Visible := True;
  end;
end;
/////////////////////////////////////////////////
楼主必须保证CheckBox和Label的Name属性为“CheckBox1”，“Label1”的形式。