problema con Cadena de caracteres
 

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:

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í....

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

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

Un Saludo.

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".

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

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;

gracias
 

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