Cadenas: eliminar espacios del final solamente

[Casimiro Noteví]

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 Noteví]

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.