länge zweier integer werte vergleichen

[Luckie]

Werden sie ja auch:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  i: Integer;
  s: String;
begin
  i := 50;
  s := Format('%.4d',[i]);
  ShowMessage(s);
end;

Bei 50 ist das Ergebnis "0050" und bei 500 "0500".