Question

How to extract the end of a string (suffix) in Pascal

Answer 1

program ExtractSuffix;

function GetSuffix(const InputStr: string; SuffixLength: Integer): string;
begin
  if SuffixLength > Length(InputStr) then
    SuffixLength := Length(InputStr);
  GetSuffix := Copy(InputStr, Length(InputStr) - SuffixLength + 1, SuffixLength);
end;

var
  str, Suffix: string;
  LengthOfSuffix: Integer;
begin
  str := 'Software Programmer';
  LengthOfSuffix := 5;  // Change this value to get a different suffix length
  
  Suffix := GetSuffix(str, LengthOfSuffix);
  
  WriteLn('The suffix is: ', Suffix);
end.




(*
run:

The suffix is: ammer

*)

 

70+ SQL courses for beginners and professionals