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"

[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:

Código Delphi [-]
Label1.Caption:=Copy(Cadena,1,Length(Cadena) -4)

Un Saludo.

[dec]

Hola,

Código Delphi [-]
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...

Código Delphi [-]
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