Der gute alte format Befehl

[Aphton]

oder

Delphi-Quellcode:

function TwoDigits(const AValue: Integer; const DefDig: Char = '0'): String;
begin
  if AValue < 100 then
  begin
    Result := IntToStr( AValue );
    if AValue div 10 > 0 then
      Result := DefDig + Result;
  end else // EDIT - Frage diesbezüglich - Siehe unten
    Result := '';
end;