Código Delphi [-] function LPad(S: String; Ch: Char; Len: Integer): String; begin Result := StringOfChar(Ch, Len - Length(S)) + S; end; ShowMessage(LPad('345', '0', 10));
function LPad(S: String; Ch: Char; Len: Integer): String; begin Result := StringOfChar(Ch, Len - Length(S)) + S; end; ShowMessage(LPad('345', '0', 10));