Examples Delphi

  1. Home
  2. Delphi
  3. Examples
  4. Padding a numeric with zeros
var s: string;
begin
FmtStr(s, '%.5d', [StrToInt(edit1.text)]);
edit1.text := s;
end;