Скачать: CL | DM;

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

← →
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;

---

← →
Roma ©   (2003-03-06 15:44) [4]

> Barlok © (06.03.03 14:48)

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c