Integer --> null vor zahl?

[marabu]

Danke Volker,

um wieviel wertvoller wird doch ein thread, wenn nicht einfach nur auf die Online-Hilfe verwiesen wird...

In meiner Code Library benötige ich Funktionen, die allgemein verwendbar sind:

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;

Wenn ich meiner Funktion aus TP Zeiten die angepasste Version mit Format() gegenüberstelle, dann liefern 1 Mio Durchläufe das Verhältnis ZeroPad : ZeroFmt = 10 : 14. Nur zur Information.

Delphi-Quellcode:

function ZeroFmt(n: cardinal; size: word): string;
begin
  Result := Format(Format('%%%d.%dd', [size, size]), [n]);
end;

Freundliche Grüße vom marabu