Führende Null bei Zahlen kleiner 10

[n0b0dy]

hey,

habe irgendwie keine ahnung wie ich bei den zahlen 0..9 jeweils noch eine führende null bekomme, sodass alle zahlen von 0..100 zweistellig sind..
hab bissle mit FloatToStrF rumprobiert aber scheint nicht so das richtige zu sein..

Kann mir jemand helfen?

[dahead]

um es als string anzuzeigen habe ich mir mal folg. funktion geschrieben:

Delphi-Quellcode:

  function IntToZeroStr(const Value, Digits: Integer): String;
  var
    tmpRes: String;
  begin
    if Value < 0 then
    tmpRes := IntToStr(Value * - 1)  else
    tmpRes := IntToStr(Value);
    while Length(tmpRes) < Digits do
     tmpRes := '0' + tmpRes;
    Result := tmpRes;
  end;

[n0b0dy]

hm oki.
jo ne funktion schreiben, hätt ich auch machen können. nur wahr mir das zu dumm ^^ ich dachte da hätte delphi schon was parat.
aber scheinbar ja doch net.
nagut dann mach ichs per eigener funktion. danke trotzdem :)


ciao

[marabu]

Hier kommt noch ein Link: klick

marabu

[MarcoWarm]

warum nicht einfach?

Delphi-Quellcode:

format('%.2d',[i]);