Cadenas: eliminar espacios del final solamente

[Ruben_21]

Hola que tal a todos...

Les comento... tengo que validar un Edit por lo que tengo que eliminar los espacios AL FINAL de la cadena capturada por el Edit. El problema viene cuando la cadena tiene espacios intermedios. Yo solo quiero eliminar los del final (en caso de que el usuario los ingrese). E intentado hacer varios artificios con Pos, Insert, Delete pero no lo logro.

Alguna idea?

Saludos.

[ecfisa]

Hola Ruben_21.

function SacarSpcFinal(Cad: string):string;
var
  i: Byte;
begin
  i:= Length(Cad);
  while Cad[i] = ' ' do
  begin
    Delete(Cad,i,1);
    Dec(i);
  end;
  Result:= Cad;
end;

Saludos.

[Ruben_21]

Funciona de maravilla.

Una vez mas, gracias, ecfisa

[Casimiro Notevi]

rtrim elimina espacios por la derecha
ltrim elimina espacios por la izquierda
trim elimina espacios por la derecha y por la izquierda.

[ecfisa]

Hola.

Si tenes razón Casimiro, lo olvidé. Esas funciones están en la unit SysUtils.

Pero sus nombres respectivos son:
Trim
TrimLeft
TrimRight

Saludos.

Pd: Rubén, ahora tenés idea de una posible implementación de TrimRight

[Casimiro Notevi]

Empezado por ecfisa

Hola.
Si tenes razón Casimiro, lo olvidé. Esas funciones están en la unit SysUtils.
Pero sus nombres respectivos son:
Trim
TrimLeft
TrimRight
Saludos.
Pd: Rubén, ahora tenés idea de una posible implementación de TrimRight

Seguramente la nomenclatura que he usado son funciones de firebird

[ezequiel913]

Empezado por ecfisa

Hola.

Si tenes razón Casimiro, lo olvidé. Esas funciones están en la unit SysUtils.

Pero sus nombres respectivos son:
Trim
TrimLeft
TrimRight

Saludos.

Pd: Rubén, ahora tenés idea de una posible implementación de TrimRight

Hola Ecfisa!!!

probe esas funciones que pusiste, y no me han funcionado, el tema es que yo tengo un edit con un length de 30, y cuando cargo algo que no tiene un length de 30 (por ej. TEXTO, de length 5) los 25 espacios restantes no me los borra.

esto es lo que hago yo y no me funciona:

Código Delphi [-]
LOCALIDAD:= Trim(AnsiUppercase (EditLocal.Text));

lo que pretendia hacer con esto era que ya borre los espacios sobrantes cuando los asigno a la variable.
en ese codigo uso el Trim pero si uso TrimLeft o TrimRight tampoco funciona.

saludos!!!

[ecfisa]

Hola ezequiel913.

Que raro...

Acabo de hacer esta prueba y me funciona correctamente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  LOCALIDAD: string;
begin
  Edit1.MaxLength:= 30;
  Edit1.Text:= '123'+StringOfChar(' ',30-Length('123')); // '123' + 27 espacios = 30 caracters
  LOCALIDAD:= Trim(AnsiUpperCase(Edit1.Text)); // tu línea
  ShowMessage(IntToStr(Length(LOCALIDAD))); // Resultado: 3
end;

Proba reproduciendo el código de arriba y si obtenes el mismo resultado, quizá el problema esté en otro lado.

Saludos.