请大神帮忙，delphi 中当点击listbox中的一条信息时，将该条信息添加到memo中并显示。代码怎么写？？？

procedure TForm7.bsSkinListBox1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to bsSkinListBox1.Items.Count-1 do
begin
if bsSkinListBox1.Selected[i] then
bsSkinMemo1.Lines.Add(bsSkinListBox1.Items.Strings[i]);
end;
end;

这代码执行没反应，哪里有错？？

你在listbox的ondbclick事件中添加如下代码：
测试:先增加一组数据
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
ListBox1.Items.Add('A');
Memo1.Lines.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]);
end;

for j:=i-1 downto 0 do if comparestr(memo1.lines.strings[i],memo1.lines.strings [j])=0 then begin memo1.lines.delete(i); break; end; 这儿问题，改为： for j:=memo1.lines.count-2 downto 0 do if comparestr(memo1.lines.strings[j],memo1.lines.strings [j+1])=0 then begin memo1.lines.delete(j+1); //break; end;

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息