|
#2
爱像深蓝2007-08-11 10:07
回复：（爱像深蓝）Delphi菜鸟发问第二贴>
自己没有注意.笔误,将strTemp又赋了初值.导致长度为0所以进不去循环.不好意思.给大家添麻烦了.
不过很奇怪.为什么像Length , Copy这样的预置方法,又或一些自定的表达式.这些都监视不到值.  已经解决,请相关人员锁贴 |
小弟想做一个单词批量输入的东东,即在一个文本框内输入几个单词以空格分开.然后将这几个单词依次放入列表框内
我的做法是先把textbox文本框里的内容由一个String型变量strTemp接受
然后遍历这个strTemp字符串数组 ,即
var
i:integer;
strTemp:String;
begin
i:=0;
strTemp:=edtInput.Text;
while i < Length(strTemp) do
begin
...
这里进不来..-_-b这是怎么回事?
end;
end;
但是不论如何进不了这个循环
下面是源码:
procedure TForm1.BtnAddClick(Sender: TObject);
var
strTemp:String;
strTemp2:String;
i:integer;
begin
LBWords.Items.Clear;//清空列表框
strTemp:=edtInput.Text;
strTemp2:='';
i:=0;
while i < Length(strTemp) do
begin
if strTemp[i] <> ' ' then
begin
strTemp2:=strTemp2 + strTemp[i];
end
else
begin
if IsWord(strTemp2) then
begin
LBWords.Items.Add(strTemp2);
strTemp:='';
end;
end;
strTemp2:='';
Inc(i);
end;
end;
[此贴子已经被作者于2007-8-11 10:08:18编辑过]