🚀 go-pugleaf

�������ѡ��һ�����Զ�������ӵ���һ��listbox�У�ͬʱɾ��ѡ�еģ�������������
���������е�ʱ����Щ����
procedure TForm1.ListBox1Click(Sender: TObject);
var
 i: integer;
begin
 for i := 0 to ListBox1.Count - 1 do
  begin
    if ListBox1.Selected[i] then
        begin
        listbox2.Items.Add(listbox1.Items[i]);
        listbox1.Items.Delete(i);
        end;
  end;
end;

����������������ѡ��ûʲô���⣬���������ѡ��͵�������
˵��list box out of bounds(j)��,j��listbox1.count���

�� �� CityhunterID (��������) �Ĵ������ᵽ: ��
: var
:  i: integer;
:  s: string;
: begin
:   for i := 0 to self.ListBox1.Count - 1 do
:   begin
:     if self.ListBox1.Selected[i] then
:     begin
:       s := s + self.ListBox1.Items[i] + ','
:     end;
: ...........................

--
�q�����r�q�����r�q�����r�q���Шr�q�����r�q�����r�q���Шr
�� �� ����  ���ȩ� �� ����  �������q�Щȩ��q���s��  ����
�t���r�����q���s���q�r������  �����t�������t���r����  ��
    �t�s�t�s    �t�s�t�s�t�ة��s�t�����s�t�����s�t�ة��s

�� ��Դ:������δ��վ bbs.pku.edu.cn��[FROM: 219.242.114.128]