string in integer

[marabu]

Ohne Worte.

Delphi-Quellcode:

function ZeroPad(n: Cardinal; places: Byte): String;
begin
  Result := Format(Format('%%.%dd', [places]), [n]);
end;

Alternativ:

Delphi-Quellcode:

function ZeroPad(s: String; size: Word): String;
begin
  if Length(s) < size
    then Result := StringOfChar('0', size - Length(s)) + s
    else Result := s;
end;

Grüße vom marabu