Пожалуста мастера помогите мне в работе со строками.

← →
Barlok © (2003-03-06 14:48) [0]

Мне нужно в Edit1 ввести предложение а ListBox1 чтобы выводил слова в колонку. Я сделал пример но он что-то не работает хотя вроде все правильно скорее всего ошибка в while но как ее исправить не знаю. Пример ниже.

procedure TForm1.Button1Click(Sender: TObject);
var
stroka, word : string;
space : integer;
begin
stroka := Edit1.Text;
While stroka <> " " do
begin
Space:=Pos(" ",stroka);
Word := Copy(stroka,1,Space-1);
ListBox1.Items.Add(Word);
Delete(stroka,1,Space);
end;
end;

← →
stream (2003-03-06 15:00) [1]

1) while stroka <> "" do //то есть сравнениваете с пустой строкой
2) чтобы работало, нужно к stroka влоб прибавить пробел:
concat(stroka," ") иначе программа бесконечно будет искать пробел там, где его нет

← →
Anatoly Podgoretsky © (2003-03-06 15:03) [2]

CommaText

← →
ALEX SLATER (2003-03-06 15:15) [3]

stroka,tmp:string;
i:integer;
begin
stroka := Edit1.Text;
tmp:="";
for i:=1 to Length(stroka) do
begin
if stroka[i]<>"" then tmp:=tmp+stroka[i]
else
begin
ListBox1.Items.Add(tmp);
tmp:=""
end;
if i=Length(stroka) and tmp<>"" then ListBox1.Items.Add(tmp);
end;

> Barlok © (06.03.03 14:48)

{ListBox1.Items.Clear;} ListBox1.Items.CommaText := Edit1.Text;

См. Anatoly Podgoretsky © (06.03.03 15:03)

Пожалуста мастера помогите мне в работе со строками. Найти похожие ветки