The LeftPad function returns the string S, left-justified within the output, and padded with the Ch character (on the right) if necessary, to make the output up to length of Len.

Declaration: Function LeftPad( S : string; Ch : Char; Len : Integer) : string;

Here are a few examples.

procedure OnMapEvent(var Value:Variant);
var
Str1, Str2, Str3, Str4 : string;
begin
Str1 := LeftPad('abc','1',5); // returns 'abc11' - two padding characters added, leaving S left-justified
Str2 := LeftPad('abcdef','1',10); // returns 'abcdef1111' - four padding characters added
Str3 := LeftPad('abc','1',2); // returns 'abc' - no padding necessary (and no truncation)
Str4 := LeftPad('This is a test','*',20); // returns 'This is a test******' - 6 padding characters added
end;