🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: cn.bbs.comp.lang.delphi
Article #4787

Re: ���ȡ��listbox�б�ѡ�е����ݣ�

#4787
From: ��������
Date: Thu, 31 Jul 2003 09:59
22 lines
1794 bytes
��Ϊ��ɾ����Ǹ� index �ͱ���ѽ��
��ǰ�� 10 ����ɾ���Ժ��ֻ�� 9 ���ˡ���Ȼ����?


�� �� qfangcn (qfangcn) �Ĵ������ᵽ: ��
: �������ѡ��һ�����Զ�������ӵ���һ��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
: ...........................

--
��˵���㿴�����ҵ����ᣬ��Ϊ����ˮ�У�
ˮ˵�����ܸо����˵����ᣬ��Ϊ���������С�

�� ��Դ:������δ��վ bbs.pku.edu.cn��[FROM: 211.91.90.58]
Technical Details
Message-ID: <47TRT1$NaN@bbs.pku.edu.cn>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-06!sn-xit-08!supernews.com!newsfeed.news2me.com!elnk-nf2-pas!newsfeed.earthlink.net!sjc70.webusenet.com!news.webusenet.com!maily.cic.tsinghua.edu.cn!news.happynet.org!PKU

Show Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB
X-Google-Thread: f7a78,3002666ea136949e
X-Google-Attributes: gidf7a78,public
X-Google-ArrivalTime: 2003-07-31 03:00:18 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-06!sn-xit-08!supernews.com!newsfeed.news2me.com!elnk-nf2-pas!newsfeed.earthlink.net!sjc70.webusenet.com!news.webusenet.com!maily.cic.tsinghua.edu.cn!news.happynet.org!PKU
From: CityhunterID@bbs.pku.edu.cn (��������)
Newsgroups: cn.bbs.comp.lang.delphi
Subject: Re: ���ȡ��listbox�б�ѡ�е����ݣ�
Date: 31 Jul 2003 09:59:51 GMT
Organization: ����δ��վ
Message-ID: <47TRT1$NaN@bbs.pku.edu.cn>
Mime-Version: 1.0
Content-Type: text/plain; charset="gb2312"
Content-Transfer-Encoding: 8bit
X-Filename: Delphi/M.1059645553.A
Lines: 22