|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Работа со строками в delphi 7
Здравствуйте. Нужна помощь с задачей: Создать новый текст, содержащий все слова исходного текста, которые оканчиваются
на ту же букву, что и слово максимальной длины. У меня почему-то ничего не выводится в listbox. Вот исходный код: Код:
procedure TForm1.BitBtn4Click(Sender: TObject); begin for i:=1 to length(s) do begin if s[i] in D then begin if i - prev > 1 then begin if i - prev - 1 > length(max_word) then max_word:=copy(s, prev + 1, i - prev - 1); ListBox1.Items.Add(copy(s, prev + 1, i - prev - 1)); end; prev:=i; end; end; end; Последний раз редактировалось Anthony_1998, 11.04.2019 в 12:22. |