1
0
lazarus-tutorials/simple_examples/last_word.pas

29 lines
540 B
ObjectPascal
Raw Permalink Normal View History

2021-09-30 14:35:14 -04:00
program last_word;
{$mode objfpc}{$H+}
type TCharSet = set of Char;
function LastWord(const aPhrase: string; separators: TCharSet): String;
var L, p: integer;
begin
L := Length(aPhrase);
if (L=0) or (separators=[]) then Exit('');
for p := L downto 1 do
if not (aPhrase[p] in separators)
then
Result := aPhrase[p] + Result
else Break;
end;
var s: string;
begin
repeat
Write('Enter a phrase (or nothing to Quit): ');
ReadLn(s);
WriteLn('The last word of "', s, '" is: "', LastWord(s, [' ']), '"');
until (s='')
end.