小弟想做一个单词批量输入的东东,即在一个文本框内输入几个单词以空格分开.然后将这几个单词依次放入列表框内
我的做法是先把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编辑过]
