Extraer Decimales De Un Numero

[[Delphius]]

Hola luis vazquez,
La respuesta de caro es correcta, siempre y cuando conviertas el numero string a real.

Ahora bien, si el número lo tienes en string y lo que deseas es obtener los decimales en formato string puedes hacer uso de RightStr(). Esta función devuelve pertenece a la unidad StrUtils (disponible desde D6). La otra opción es emplear Copy() para copiar los 2, 3 o la cantidad de caracteres que representan a los decimales.

Revisa la ayuda sobre el uso de RightStr().

Saludos,
PD: Mi inglés me está fallando, no se si es RigthStr() o RightStr()

[*Caro*]

Hola, si quieres obtener los ultimos caracteres de una cadena puedes utilizar RightStr.

Código Delphi [-]
  Cad := RightStr(TuCadena, 2);

Saluditos

[Cheerpipe]

y si los decimales son variables puedes usar

Código Delphi [-]
function extraerDecimalString(SeparadorDecimal: String; Texto: String): String;
var
  l: integer;
begin
  result:=RightStr(Texto,lenght(l)-pos(SeparadorDecimal,Texto));
end;

[luis vazquez]

trate de usar el rightstr pero me dice que no esta declarado y la verdad no se como declarar la funcion, trate de hacerlo antes del begin del procedure en unboton pero me da todo en blancon, no regresa nada.

procedure TForm1.Button1Click(Sender: TObject);

function RightStr(const AText: string; ACount: Integer): string;
begin
end;// si no pongo el begin y el end me genera error.

begin

label1.caption:=RightStr('Programmer', 7);

end;

la verdad ando mas enrredado que perro con 3 colas, agradeceria una respuesta, nunca he usado funciones y se que es cencillo pero no entiendo como declararlas

gracias por su prontas respuestas especialmente a caro

[[Delphius]]

Hola luis vazquez,
No hay declarar la función. La función ya fue declarada y pertenece a la unidad StrUtils, como lo he expresado unos post antes.

Intuyo que el error que te da se debe a que no declaraste en uses la unidad correspondiente.

Saludos,

[*Caro*]

Hola, el error es porque debes añadir en uses la unidad StrUtils como te ha indicado Delphius.

Código Delphi [-]
uses
  Windows, Messages, ............., Dialogs, StrUtils;

Saluditos

[luis vazquez]

Gracias Por Sus Concejos, Todo Funciono Bien Despues De Meter El Strutil En Su Lugar, Ya Termine El Programa Y Aprendi Nuevas Cosas Muchas Gracias Por Su Ayuda:d