Вопрос мне надо в 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!

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