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