Question

How to pad a string on the left in Pascal

Answer 1

program PadLeftProgram;
 
uses 
  StrUtils; // PadLeft

var
  str, padded: string;
begin
  str := 'Pascal';
  padded := PadLeft(str, 9); 
  
  WriteLn('Padded string: "', padded, '"');  
end.


 
 
 
(*
run:
 
Padded string: "   Pascal"
 
*)

 

70+ SQL courses for beginners and professionals

Answer 2

program PadLeftProgram;

var
  str, padded: string;
  padChar: char;
  totalWidth, padLength: integer;
begin
  str := 'Pascal';
  padChar := '*';
  totalWidth := 10;
  padLength := totalWidth - Length(str);
 
  padded := StringOfChar(padChar, padLength) + str;
   
  WriteLn('Padded string: ', padded);  
end.
 
  
  
  
(*
run:
  
Padded string: ****Pascal
  
*)

 

70+ SQL courses for beginners and professionals

Answer 3

program PadLeftProgram;
  
function CustomPaddedString(const str: string; padChar: char; totalWidth: integer): string;
var
  padLength: integer;
begin
  padLength := totalWidth - Length(str);
 
  if padLength > 0 then
    CustomPaddedString := StringOfChar(padChar, padLength) + str
  else
    CustomPaddedString := str;
end;
 
var
  padded: string;
begin
  padded := CustomPaddedString('Pascal', '*', 10);  
   
  WriteLn('Padded string: ', padded);
end.
 
  
  
  
(*
run:
 
Padded string: ****Pascal
 
*)

 

70+ SQL courses for beginners and professionals