Question

How to get the length of the last word in a string with Pascal

Answer 1

program LastWordLength;

uses
  Classes; // TStringList

var
  str, lastWord: string;
  wordList: TStringList;
begin
  str := 'c++ c php javascript rust pascal';
  wordList := TStringList.Create;
  
  wordList.Delimiter := ' ';
  wordList.DelimitedText := str;
  lastWord := wordList[wordList.Count - 1];
  WriteLn('The length of the last word is: ', Length(lastWord));
  wordList.Free;
end.



(*
run:

The length of the last word is: 6
 
*)

 

70+ SQL courses for beginners and professionals