Ver Mensaje Individual
  #5  
Antiguo 08-10-2012
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Reputación: 30
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Cita:
Empezado por maeyanes Ver Mensaje
Otra forma de lograr esto es la función Format:
Código Delphi [-]
function FormatNumber(Number, StrLen: Integer): string;
begin
  Result := Format(Format('%%.%dd', [StrLen]), [Number])
end;
Encontré el tema por casualidad y me pareció curiosa la anterior solución, ya que puede conseguirse el mismo resultado con una sola llamada a Format:
Código Delphi [-]
S := Format ('%.*d', [10, 123]);  // S = '0000000123'
Más que nada lo pongo para que se conozca esta alternativa. Habiendo pasado cinco años, seguro que maeyanes ya lo ha de saber.

Saludos.
Responder Con Cita