Zeros no Inicio de um Inteiro

Zeros no Inicio de um Inteiro

// Adiciona o Zeros no Inicio de um Inteiro.

var s: string; begin FmtStr(s, '%.5d', [StrToInt(edit1.text)]); edit1.text := s; end;