Question

How to remove the trailing slashes from a string in Pascal

Answer 1

program RemoveTrailingSlashes;

function RemoveTrailingSlashes(input: string): string;
var
  len: Integer;
begin
  len := Length(input);
  
  while (len > 0) and (input[len] = '/') do
    Dec(len);
    
  RemoveTrailingSlashes := Copy(input, 1, len);
end;

var
  str1, str2, str3: string;
begin
  str1 := '/ABC/';
  str2 := '/ABC////';
  str3 := '/ABC';

  WriteLn(RemoveTrailingSlashes(str1));
  WriteLn(RemoveTrailingSlashes(str2));
  WriteLn(RemoveTrailingSlashes(str3));
end.

 
 
(*
run:

/ABC
/ABC
/ABC

*)  

 

70+ SQL courses for beginners and professionals