Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como poner ceros antes y despues de un numero fraccionario? (https://www.clubdelphi.com/foros/showthread.php?t=28478)

Luis Alberto 20-12-2005 23:35:00

Como poner ceros antes y despues de un numero fraccionario?
 
Neceito saber como que funcion o como realizar ceros a la derecha y ceros a las izquierda ejemplo el numero es:

197.70


debe de generar se asi


0000197.7000


debe de ser 7 ceros antes y 4 despues del punto decimal


otro ejemplo


45.15

0000045.1500



Espero me hayan entendido


de antemano gracias...

AGAG4 20-12-2005 23:43:20

Checa esto....
 
Te paso la siguiente función ya tu la Revisarás para manipularla, esta misma te agrega ceros a la derecha:
Código Delphi [-]
function AgregarCeros(texto:String; longi:byte):String;
var x,y:byte;
begin
  x:=longi-length(texto);
  if length(texto)then begin
    result:=texto;
    for y:=1 to x do
      result:='0'+result;
  end else result:=texto;
end;

Saludos....

ContraVeneno 20-12-2005 23:52:25

solo como comentario muy aparte y solo porque me dieron ganas de exponer mis ideas. Creo que podrías ahorrarte el uso de la variable x.

cuburu 21-12-2005 00:15:45

Me parece que podrías lograr el mismo efecto con la función FornmatFloat, en este momento no me llega a la mente el formato pero la puedes encontrar en la ayuda

Luis Alberto 21-12-2005 00:29:41

No entendi la funcion de FormatFloat tienes algun ejemplo Cuburu

ContraVeneno 21-12-2005 00:45:17

tenías razón, es mejor usar formatfloat
Código Delphi [-]
 formatfloat('00000##.##00',TuVarFloat)

Luis Alberto 21-12-2005 21:29:24

Gracias, asi me funciono


La franja horaria es GMT +2. Ahora son las 00:44:14.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi