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]

Empezado por 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

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:

Código Delphi [-]
 
variable:=trunc(variable*100)/100