Ver Mensaje Individual
  #4  
Antiguo 07-10-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Anel.

Cita:
El numero tiene 5 espacios en blanco delante y 2 ceros detras.
Si sólo se trata de agregarle 5 espacios delante y con dos cífras decimales sería:
Código Delphi [-]
var
  st: string;
  f: Double;
begin
  f:= 5.1;
  st:= '     '+FormatFloat('0.00', f);  
  // o del mismo modo se puede hacer  st:= StringOfChar(' ', 5) + st;
  Label1.Caption:= st;
  ...

Ahora si se trata de que rellene con espacios los caracteres que le faltan a la parte entera para llegar a 5, la cosa cambia un poco:
Código Delphi [-]
...
const
  ESPACIOS = 5;
var
  st: string;
  f: Double;
begin
  f:= 5.1;
  st:= FormatFloat('0.00', f);
  st:= StringOfChar(' ', ESPACIOS -Length(Copy(st, 1, Pos(DecimalSeparator, st)-1))) + st;
  Label1.Caption:= st;
 ...

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita