unit unit1;

interface

uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls, checklst, buttons;

type
tform1 = class(tform)
lst1: tlistbox;
mmo1: tmemo;
btn1: tspeedbutton;
edt1: tedit;
btn2: tspeedbutton;
btn3: tspeedbutton;
btn4: tspeedbutton;
procedure btn3click(sender: tobject);
procedure btn4click(sender: tobject);
procedure btn1click(sender: tobject);
procedure btn2click(sender: tobject);
private
{ private declarations }
public
{ public declarations }
end;

var
form1: tform1;

implementation

{$r *.dfm}

procedure tform1.btn3click(sender: tobject);
begin
lst1.items.add(edt1.text);
end;

procedure tform1.btn4click(sender: tobject);
begin
lst1.clear;
end;

procedure tform1.btn1click(sender: tobject);
var i,j:integer;
begin
j:=0;
for i := 0 to lst1.items.count - 1 do
begin
if lst1.selected[i] then
begin
mmo1.lines.add(lst1.items.strings[i]);
j:=j+1;
end;
end;

mmo1.lines.add('选定了'+inttostr(j)+'个对象');
end;

procedure tform1.btn2click(sender: tobject);
begin
mmo1.clear;
end;

end.