sguruapp@gmail.com
facebook vk instagram Одноклассники youtube

Вариант простого поиска последнего слова в строке или строках - Delphi


procedure TForm1.Button1Click(Sender: TObject);
var
S, sWord : String;
i, Len : Integer;
begin

//Удаляем пробелы справа.
S := TrimRight(Memo1.Text);

//Добавляем пробел слева.
S := ' ' + S;
Len := Length(S);

//Находим индекс разделителя, стоящего непосредственно слева от первой буквы последнего слова.
for i := Len downto 1 do begin
if S[i] in [#9, #10, #13, #32] then Break;
end;

//Последнее слово.
sWord := Copy(S, i, Len - i + 1);
ShowMessage(sWord);
end;

Возврат к списку

обучись профессии будущего

Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.

обучись профессии будущего