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

Вопрос мне надо в Edit ввести строку и вывести через Listbox ?   Найти похожие ветки 

← →
Barlok ©   (2003-03-02 19:15) [0]

Вопрос мне надо в Edit ввести строку и вывести через Listbox как колонку. Каждое слово новая строка в Listbox?

---

← →
Snap ©   (2003-03-02 19:21) [1]

Функция pos

---

← →
Delphi5.01 ©   (2003-03-02 22:09) [2]

"Line" stroka s tekstom "Word" ocherednoe slovo

begin
While Line<>"" do //poka ne konchilos
begin
Space:=Pos(" ",Line); //poluchaiu koordinatu pervogo probela
Word:=Copy(Line,1,Space-1); //kopiruiu slovo
ListBox.Items.Add(Word); //ili Strings.Add nepomu, pishu na izust
Dlete(Line,1,Space); //udalau naidenoe slovo
end;
end;

Jelau udachi!

---

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

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



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