Uso de cadenas
 

Hola a todos!
Tengo el siguiente problema con el uso de la funcion StrUtils.RightStr:
Tengo un componente List View que se llama LVVisible, y en su cuarta columna guarda el siguiente valor:

$ 25.68

Lo que quiero hacer es guarda el valor 25.68 en una variable, sin el signo de pesos ni el espacio en blanco, por eso pense en hacerlo así:

Código Delphi [-]
      subtotal:= StrUtils.RightStr(LVVisible.Items[l].SubItems[3],2);

El problema es que con esa funcion, lo que me guarda subtotal es 68, lo que esta antes del punto decimal no lo guarda, y yo necesito el valor completo en la variable subtotal; es decir necesito que subtotal sea igual a 25.68.

¿Saben como lo puedo hacer? :confused:

Yo probaria con esto

Código Delphi [-]
subtotal:= StrUtils.RightStr(LVVisible.Items[l].SubItems[3],5);

Hola,

Yo haría algo más o menos esto:

Código Delphi [-]
function QuitarSimboloPeso(cadena: string) : string;
var
  i: integer;
begin
  for i := 1 to Length(cadena) do
    if (cadena[i] in ['0'..'9', '.']) then
      Result := Result + cadena[i];
end;

Se admiten sugerencias para mejorarlo. ;)

Gracias Funciono!!!

Eres Un Genio!!

Gracias Por Tu Tiempo :)

Hola:

Como lo que sobra es el signo dolar que siempre va el primero, en vez de usar Right usa Copy para sacar todo menos el primer caracter, y como no te interesan los espacios en blanco que puedan quedar antes o después de la cantidad, pues se eliminan con Trim

Subcadena := Trim(Copy(Cadenaquesea, 2, 100));

100 o un numero que sepas que es igual o superior a la máxima longitud que pueda tener la cadena.

Un saludo.