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