Текущий архив: 2003.03.13;
Скачать: 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 вся ветка
Текущий архив: 2003.03.13;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.02 c
