再一个关于listbox的问题(50分)

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #1

在listbox中，可以用if FileListBox1.Items.IndexOf('AUTOEXEC.BAT') > -1 then
来判断listbox中是否有autoexec.bat这个字串，但他是以完全匹配成在的，也就是说
abcdAUTOEXEC.BAT,这个串就不会被认为其中有AUTOEXEC.BAT，，我希望能够对串中的一个字付
进行比较
比如
abcdf|1982
其中用"|"来比较，如果发现有'|'那么程序继续，如果没有，那就说明输入错误！
不知道listbox中有没有这种方法？？？

 

M

mdc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #2

用循环遍历来对比吧。

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #3

说个做法，我是初学者，谢谢！！

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #4

遍历，用pos

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #5

兄弟们呀，能不能写个例程呀？

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #6

不要偷懒。
for i:=0 to ListBox1.Items.Count-1 do if pos(substr,ListBox1.Items)<>0 then 存在

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #7

var
i: integer
begin
for i := 0 to ListBox1.Count - 1 do
begin
if pos('要找的内容',ListBox1.Items.Strings)>0 then//find
begin
///
break;
end;
end;
end;

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #8

pos(substr,str)<>0 then

substr是什么东西呀？
搞不懂！
那么要判断"|"是否存在的话是不是
for i:=0 to ListBox1.Items.Count-1 do if pos(substr,'i')<>0

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #9

faint..., 为什么不看一下delphi的帮助呢？关键字'pos'。

for i:=0 to ListBox1.Items.Count-1 do if pos('|',ListBox1.Items)<>0 then 存在

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #10

不行呀，我看过了，e文不是很好了！
看看原码：
procedure TForm3.Button2Click(Sender: TObject);
var
i: integer;
begin
listbox1.Items.Add(edit1.text);
for i:=0 to ListBox1.items.Count-1 do
begin
if pos('|',ListBox1.Items.Strings)>0 then//find
begin
form1.listbox1.items.add(form3.edit1.text);
end
else
begin
messagebox(0,'输入有误，列表自动清空!','关闭',MB_iconquestion);
listbox1.items.clear;
end;
end;
end;

问题是：不管输入有没有'|'都message，很心烦！

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #11

学会看帮助。不然你永远提高不了。

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #12

知道呀，在看的，可就是没有关于listbox方面的pos帮助呀！！！

 

Z

zhjwjan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #13

你判断到有时就跳出循环啊。

if pos('|',ListBox1.Items.Strings)>0 then//find
begin
form1.listbox1.items.add(form3.edit1.text);
break; //加上这句
end

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #14

procedure TForm3.Button2Click(Sender: TObject);
var
i: integer;
b:Boolean ;//////////////////////////////////
begin
listbox1.Items.Add(edit1.text);
b:=false; ///////////////////////////////////
for i:=0 to ListBox1.items.Count-1 do
if pos('|',ListBox1.Items.Strings)>0 then//find
begin
form1.listbox1.items.add(form3.edit1.text);
b:=true;/////////////////
break;/////////////////////
end
if not(b) then ///////////////////
begin
messagebox(0,'输入有误，列表自动清空!','关闭',MB_iconquestion);
listbox1.items.clear;
end;
end;

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #15

哦，OK,OK看来我的语法不是不行呀，向大家学习，谢谢谢谢·！

送分

 

C

chatop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #16

晕，分怎么送不了，，，，，再送！！

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #17

你的程序我本地测试了是对的,你自已找找其它原因