Здравствуйте. Нужна помощь с задачей: Создать новый текст, содержащий все слова исходного текста, которые оканчиваются
на ту же букву, что и слово максимальной длины.
У меня почему-то ничего не выводится в 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;