quitar un decimal ??

[chele]

Buenas, lo mismo es una tonteria pero no se como hacerlo.

Tengo un valor ( 5,368 ) y necesito que me lo deje con dos decimales ( 5.36 ) pero necesito confirmar que tiene 3 decimales y no solo 2.

ES decir si me pone los 3 decimales ponerle solo los dos ( sin redondear no hace falta ) y si tiene ya los dos dejarlo igual.

¿Como haria esto? soy novato en delphi y estas cosas en vb la resuelvo con right y left pero aqui no se como hacerlo.

Gracias anticipadas.

[Investment]

//CadenaFloat, ParteEntera y ParteDecimal son de tipo string

CadenaFloat:= floattostr(Tuvariablefloat);
ParteEntera:= copy(CadenaFloat,0,pos(',',CadenaFloat)-1);
ParteDecimal:= copy(CadenaFloat,pos(',',CadenaFloat)+1,length(CadenaFloat));

if Len(ParteDecimal)>2 then
ParteDecimal:= Copy(ParteDecimal,1,2); //Ya tienes solo dos decimales

[chele]

//CadenaFloat, ParteEntera y ParteDecimal son de tipo string

CadenaFloat:= floattostr(Tuvariablefloat);
ParteEntera:= copy(CadenaFloat,0,pos(',',CadenaFloat)-1);
ParteDecimal:= copy(CadenaFloat,pos(',',CadenaFloat)+1,length(CadenaFloat));

if Len(ParteDecimal)>2 then
ParteDecimal:= Copy(ParteDecimal,1,2); //Ya tienes solo dos decimales


Gracias por la respuesta.

LA cosa es que ahora me dice esto :

Undeclared identifier : "Len"

Tengo delphi 5.0

¿Que puedo hacer?

Gracias anticipadas

[Investment]

Fallo mio, cambia Len por Length y listo

[ruina]

una pequeña variante:



variable:=trunc(variable*100)/100