Показать сообщение отдельно
  #2  
Старый 27.05.2022, 00:03
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Line 37 должна быть:
Код:
word := word + bk[i] + ' ';

PS. Лучше не использовать 'word' как имя переменной, т.к. есть такой тип данных.

PPS. Более простой способ деления текста на слова (по пробелу):
Код:
var
  sl : TStringList;
begin
  sl := TStringList.Create;
  Try
    sl.Delimiter := ' ';
    sl.Delimitedtext := Memo1.Lines.Text;
    ...
  Finally
    sl.Free;
  End;
В результате у тебя есть переменная sl - список слов (фактически, массив), доступ к элементам через sl[i]:
Код:
for I := 0 To sl.count-1 Do
  ShowMessage(sl[i]);
Ответить с цитированием