![]() |
|
#1
|
|||
|
|||
![]() Дана строка, состоящая из английских слов, разделенных хотя бы одним пробелом!вывести каждое слово с новой строки и сортировать по алфавиту по первой букве.......плииииииииииз!оч надо!
|
#2
|
|||
|
|||
![]() Самый простой вариант: кидаешь на форму кнопку и ListBox, по нажатию кнопки прописываешь
Код:
var Source: String; Position: Integer; begin Source := 'Твоя сторка со словами'; ListBox1.Items.BeginUpdate; ListBox1.Items.Clear; ListBox1.Sorted := True; // включаем сортировку Source := Trim(Source); // обрезаешь пробелы с обеих сторон Position := Pos(' ', Source); // находим первый пробел while Position <> 0 do // пока не закнчатся пробелы выполняем begin // выводим слово ListBox1.Items.Add(TrimRight(Copy(Source, 1, Position))); // отрезаем первое слово Delete(Source, 1, Position); // обрезаем пробелы слева Source := TrimLeft(Source); // находим новый пробел Position := Pos(' ', Source); end; // добавляем последнее слово ListBox1.Items.Add(Source); ListBox1.Items.EndUpdate; На выходе получаешь ListBox с готовыми уже отсортированными словами |