Over a million developers have joined DZone.

Delphi Right Pad Function

·
Delphi right pad function


function RightPad(PadString : string ; HowMany : integer ; PadValue : string): string;
var
   Counter : integer;
   x : integer;
   NewString : string;
begin
//   if PadValue = '' then PadValue := CHR(32);
   Counter := HowMany - Length(PadString);
   for x := 1 to Counter do
   begin
      NewString := NewString + PadValue;
   end;
   Result := PadString + NewString;
end;

Topics:

{{ parent.title || parent.header.title}}

{{ parent.tldr }}

{{ parent.urlSource.name }}