Como poner ceros antes y despues de un numero fraccionario?

[Luis Alberto]

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]

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]

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]

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]

No entendi la funcion de FormatFloat tienes algun ejemplo Cuburu

[ContraVeneno]

tenías razón, es mejor usar formatfloat

Código Delphi [-]
 formatfloat('00000##.##00',TuVarFloat)

[Luis Alberto]

Gracias, asi me funciono