Decimales.

[Iron]

Hola Delphius,
Gracias por contestar, lo intenté con format como en Visual pero me da error. Buscaré en el foro como usar la función RoundTo() que es la que mas me interesa.

Un saludo

[[Delphius]]

Empezado por Iron

Hola Delphius,
Gracias por contestar, lo intenté con format como en Visual pero me da error.

Delphi no es Visual Basic. Por algo he dicho: leer la ayuda:

Returns a formatted string assembled from a format string and an array of arguments.

Unit

SysUtils

Category

string formatting routines

function Format(const Format: string; const Args: array of const): string;

Description

This function formats the series of arguments in the open array Args. Formatting is controlled by the format string Format; the results are returned in the function result as a string.

For information on the format strings, see Format Strings.

Lee sobre Format Strings.

Un ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(format('%.2f',[132.457843]))
end;

Y si te da error es conveniente que nos comentes textualmente que error para saber como ayudarte. Me gustaría ver una muestra de cómo lo intentaste usar...

Saludos,

[Iron]

Delphius, era justo lo que quería!!. He tardado mas de media hora en hacerlo funcionar . Copie mal lo que pusiste (no ponia el paréntesis que está después del Showmessage) y en la ayuda Delphi, el ejemplo empieza con Format y tampoco le ponen paréntesis.
Al repasar el foro para poner que no me salia vi la diferencia con el tuyo.

Gracias!!

[rgstuamigo]

Yo utilizo la funcion RoundTo de la unidad Math para redondear los decimales por ejemplo:
RoundTo(3,56789,-2) me sale como resultado 3,57 ;el segundo parametro
indica la cantidad de decimales que se quiere que se muestre en este caso pongo 2
negativo por asi es como trabaja la function, desde luego trabaja tambien con el segundo parametro positivo, puedes buscar en la ayuda de delphi al respecto para una mejor comprension.
Saludos......

[Iron]

También me vale, me interesa que me digais todas estas cosas porque así voy aprendiendo, Gracias!!!

[Iron]

He estado haciendo pruebas con RoundTo y hago algo mal:
El número es 123,456789
-si le pongo g:=RoundTo(f,-3):sale=123,45700073
-si le pongo -2):sale=123,45999964
-si le pongo -1):sale=123,5
-si le pongo 0):sale=123

También me pasa con una función mia:

Código Delphi [-]
procedure TInt_CC.ListBox9Click(Sender: TObject);
   var
    convertir:smallint;
   begin
    convertir:=Listbox9.ItemIndex + 1;
    Tipo_Inst_P_S:=Tipo_Inst(convertir);
end;
 
function Tipo_Inst(convertir:integer):single;
   begin
    if convertir=1 then Tipo_Inst:=1.732;
    if convertir=2 then Tipo_Inst:=2;
    if convertir=3 then Tipo_Inst:=1.732;
    if convertir=4 then Tipo_Inst:=1.732;
end;

Con esta función me devuelve 1,7319999933 en lugar de 1,732.

Gracias

[rgstuamigo]

He estado haciendo pruebas con RoundTo y hago algo mal:
El número es 123,456789
-si le pongo g:=RoundTo(f,-3):sale=123,45700073
-si le pongo -2):sale=123,45999964
-si le pongo -1):sale=123,5
-si le pongo 0):sale=123

Pues yo lo he probado tambien y me sale todo bien por ejemplo:
RoundTo(123,456789,-3)=123,457 ok
RoundTo(123,456789,-2)=123,46 ok
RoundTo(123,456789,-1)=123,5 ok
RoundTo(123,456789,0)=123 ok
Probado en Delphi 7.
Me late que quisas estas haciendo algo mal.
Por que no pones tu codigo para que lo podamos ver.