Question

delphi组件调用情况，属性设置情况，以及主题代码部分，详情见图





Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
   lst1.MultiSelect:=True;
end;
procedure TForm1.btn1Click(Sender: TObject);
var
  i:integer;
begin
  for I := 0 to lst1.Count-1 do
  begin
    if lst1.Selected[i] then
    begin
      cbb1.Items.add(lst1.Items[i]);
    end;
  end;
 
  end;

procedure TForm1.btn1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=StrToInt(edt1.text) to StrToInt(edt2.text) do
  begin
    if i mod  3 =0 then
      mmo1.Lines.Add(IntToStr(i));
  end;
 
end;