这简单的代码要怎么写运行起来不容易出错- -第一个回答的不管好坏也有分 ( 积分: 50 )

W

wwwvw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-06

• #1

3个BUTTON,一个listbox1,listbox1里面内容如下
------------------------
123546567
42343454
12
123
235345345345
-------------------------
按button1后 检查listbox1里是不是同时出现12和123 这两行
如果同时出现的话就按button2
如果只出现12而没出现123的话就按button3

这代码要怎么写运行起来比较稳定

 

W

wwwvw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-06

• #2

3个BUTTON,一个listbox1,listbox1里面内容如下
------------------------
123546567
42343454
12
123
235345345345
-------------------------
按button1后 检查listbox1里是不是同时出现12和123 这两行
如果同时出现的话就按button2
如果只出现12而没出现123的话就按button3

这代码要怎么写运行起来比较稳定

 

O

ouyang2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-06

• #3

用 if ListBox1.indexof()<>-1 then

 

隐

隐士山人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-06

• #4

procedure TForm1.Button1Click(Sender: TObject);
var i,i1,e:integer;
begin
e:=0;
for i:=0 to ListBox1.Count-1 do
begin
for i1:=i+1 to ListBox1.Count-1 do
begin
if (Trim(ListBox1.items)='12') and (Trim(ListBox1.items[i1])='123') then
e:=1;
end;
end;
if e=1 then showmessage('按button2')
else showmessage('按button3');
end;
end.

 

W

wwwvw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-06

• #5

隐士山人的代码考虑不够周到，如果 12 和123 都没有的时候 程序也会执行showmessage('按button3'),不过还是谢谢你了

大家还有更好的吗

 

隐

隐士山人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-06

• #6

//你就加一句不就行了.
procedure TForm1.Button1Click(Sender: TObject);
var i,i1,e:integer;
begin
e:=0;
for i:=0 to ListBox1.Count-1 do
begin
for i1:=i+1 to ListBox1.Count-1 do
begin
if Trim(ListBox1.items)='12' then
e:=2;
if (Trim(ListBox1.items)='12') and (Trim(ListBox1.items[i1])='123') then
e:=1;
end;
end;
if e=0 then showmessage('不点');
if e=1 then showmessage('按button2');
if e=2 then showmessage('按button3');
end;
end

 

隐

隐士山人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-06

• #7

//要换下位置:
procedure TForm1.Button1Click(Sender: TObject);
var i,i1,e:integer;
begin
e:=0;
for i:=0 to ListBox1.Count-1 do
begin
for i1:=i+1 to ListBox1.Count-1 do
begin
if Trim(ListBox1.items)='12' then
e:=2;
if (Trim(ListBox1.items)='12') and (Trim(ListBox1.items[i1])='123') then
e:=1;
end;
end;
if e=0 then showmessage('不点');
if e=1 then showmessage('按button2');
if e=2 then showmessage('按button3');
end;
end

 

Y

yaoc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-06

• #8

哪有那么复杂，我这个简单：
procedure TForm1.Button1Click(Sender: TObject);
var
b1,b2:Boolean;
begin
b1 := ListBox1.Items.IndexOf('12')>=0;
b2 := ListBox1.Items.IndexOf('123')>=0;
if b1 and b2 then showmessage('按button2')
else if b1 then showmessage('按button3')
else showmessage('不点');
end;

 

隐

隐士山人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-06

• #9

//不好意思,刚才没开D7,试一下,漏了个break;补上就行了.
procedure TForm1.Button1Click(Sender: TObject);
var i,i1,e:integer;
begin
e:=0;
for i:=0 to ListBox1.Count-1 do
begin
for i1:=i+1 to ListBox1.Count-1 do
begin
if Trim(ListBox1.items)='12' then
e:=2;
if (Trim(ListBox1.items)='12') and (Trim(ListBox1.items[i1])='123') then
begin
e:=1;
break;
end;
end;
end;
if e=0 then showmessage('不点');
if e=1 then showmessage('按button2');
if e=2 then showmessage('按button3');
end;
end.

 

W

wwwvw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-07

• #10

多谢各位热心帮忙

 

B

bnbchinafbi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-07

• #11

补充一点:把楼上的事件处理过程BUTTON1CLICK中的代码用函数封装就更好了.
如:
procedure TForm1.Button1Click(Sender: TObject);
begin
FunctionX(Listbox1);
end;