problema con Cadena de caracteres

[EfrainSanmiguel]

Hola a todos, tengo un label donde muestro un peso que me traigo de una balanza... por ejemplo 155,45 Kgr como puedo hacer para que solo me muestre los numeros y borre el "Kgr":confused: :confused: :confused:

[OSKR]

para empezar......qien modifica el contenido? busca la subcadena "Kgr" y la truncas a partir de ahi. Yo lo hago en C pero no recuerdo como hacerlo en Pascal, algun Delphiniano por ahí....

[marcoszorrilla]

Como por lo que veo siempre sobran los 4 últimos espacios:


Label1.Caption:=Copy(Cadena,1,Length(Cadena) -4)


Un Saludo.

[dec]

Hola,


var
entrada, salida: string;
const
flags = [rfReplaceAll, rfIgnoreCase];
begin
entrada := '155,45 Kgr';

salida := StringReplace(entrada, ' Kgr', '', flags);

ShowMessage(salida);
end;


Esa podría ser una forma de lograr lo que dices, utilizando la función "StringReplace" de la unidad "SysUtils".

[dec]

Hola,

Me gusta más, me parece mejor la solución de Marcos que la mía. ;)

Otra vez más:

Marcos 1 - dec 0

[Geta]

Busca la posicion de Kgr y la eliminamos gracias a su posición, de esta forma...


var
Cadena: String;

begin
//Buscamos el elemento del string donde empieza Kgr y lo eliminamos junto con el espacio anterior.

Delete(Cadena,AnsiPos(Cadena,'Kgr')-1,4);

end;

[EfrainSanmiguel]

gracias a todos.. en verdad me sirvio de mucho lo que respondieron y pude solucionar mi problema