Extraer Decimales De Un Numero

[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