Código Delphi [-] var mes : String; For i:=1 to 12 do begin mes := IntToStr(i); If length(mes) = 1 Then mes := '0' + mes; end;
var mes : String; For i:=1 to 12 do begin mes := IntToStr(i); If length(mes) = 1 Then mes := '0' + mes; end;