Question

delphi中怎样修改checklistbox选中的一个值?

要用新字符代替原来的

Answer 1

示例代码
procedure TForm1.CheckListBox1Click(Sender: TObject);
var i:integer;
begin
with CheckListBox1 do
for i:=0 to Items.count-1 do
begin
if selected[i] then items[i]:='改变了';
end;
end;