2 replies to this topic

[zampa]

Hola.

Me da algo de corte hacer esta consulta, pero es que no me sale grfff. O tengo que hacerme una función a parte...

Tengo que imprimir con formato: son 9 columnas, cada una de 8 caracteres.

La primera columna es texto, y la segunda y tercera un entero. También me salen :
simplemente imprimo con Format('TEXTO  %8d%8d%8d',  [int0, int1, int2] );

Las siguientes dos columnas son valores decimales, de 8 caracteres: .0 si es 0 o por por ejemplo 0.016 o 0.5....: no me salen.

A continuación un ejemplo:


GRID          1      0    0.0    0.016.50000      0              0       
GRID          2      0    0.0    0.016.73300      0              0       
GRID          3      0    0.0    0.016.96700      0              0       
GRID          4      0    0.0    0.017.20000      0              0       
   

No quiero especificar cuantos decimales se imprimen. Si hay un signo, debe imprimir un signo menos, ... Pero en total siempre deben ser 8 simbolos
por ejemplo:
1.234567
12.23456
-1.23456
-12.2345
.1234567
-0.12345

[seoane]

Te refieres a esto:

delphi

function Dame8(d: Double): String;
begin
  Result:= Copy(FormatFloat('#.0000000',d),1,8);
end;

Por ejemplo esto:

delphi

memo1.Lines.Add(Dame8(0.12));
  memo1.Lines.Add(Dame8(pi));
  memo1.Lines.Add(Dame8(123.5));
  memo1.Lines.Add(Dame8(-3.25));
  memo1.Lines.Add(Dame8(-0.5));

Da como resultado esto:

delphi

,1200000
3,141592
123,5000
-3,25000
-,500000

[zampa]

Muchas gracias  Perfecto.