帮看一下第二句为什么不正确！

Question

TCheckBox(findcomponent('CheckBox'+IntToStr(i))).Checked := false;
TClientSocket(findcomponet('ClientSocket'+IntToStr(i))).Active := false;

Answer 1

findcomponet  寫錯了! findcomponent

Answer 2

procedure TForm1.Button1Click(Sender: TObject);var
  i: Integer;
const
  NamePrefix = 'MyEdit';
begin
  for i := 1 to 20 do begin
    TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      Left := 10;
      Top := i * 20;
      Parent := self;
    end;
  end;
end;