6 respuestas en este tema

[santiago14]

Buenas, tengo un texto en un RichEdit, lo que quiero es eliminar los espacios en blanco al final del mismo pero, SIN PERDER EL FORMATO.

No le estoy encontrando la vuelta. Usando Trim no funciona bien la cosa pues pierde el formato de texto.

 

Gracias.

[cram]

Si no importa que no sea desde un programa, podrías leerlo desde un editor de texto plano, ya que los caracteres de formato aparecerán como símbolos ASCII diferentes de números y letras, el único problema será cuando no pueda ser "mapeado" y lo muestre como blanco.

Recuerdo que una vez hice un pequeño programa que leía con BlockRead y quitaba solo los caracteres con valor 32. Obviamente lo interpretaba como un arreglo de tipo numérico.

 

Espero te sirve y espero haber entendido bien tu problema

Saludos

[santiago14]

Muchas gracias.

El gran ecfisa (Club Delphi) nos regala la solución al problema.

Con su permiso:

delphi

procedure TrimRE(RichEdit: TRichEdit);
var
  i: Integer;
begin
  with RichEdit do
  begin
    if Lines.Count > 0 then
    begin
      i := Lines.Count-1;
      while Lines[i] = EmptyStr do
      begin
        Lines.Delete(i);
        Dec(i);
      end;
      SelStart  := Length(Text) - Length(Trim(Lines[Lines.Count-1]));
      SelLength := Length(Text);
      SelText   := '';
    end;
  end;
end;

Puede encontrarse aquí

 

Gracias.

[Delphius]

Lo que no entiendo es porqué no basta con emplear trim. Tampoco logro entender porqué debe invocarse el seleccionado al establecer los valores a SelStart, SelLength y SelText. Me dejó pensando...

 

Saludos,

[santiago14]

Porque si lo hacemos solo con Trim se pierde el formato.
Al principio lo hice así y me quedaba todo en texto plano.
Es medio engorroso pero bueno...
Saludos.

[Delphius]

No se si engorroso pero si curioso. Lo loco es que si el uso de trim es el problema, ¡en la solución lo usa de todas formas! Fijate que para calcular la posición inicial de seleccionado invoca dentro del Length() a Trim(). Vaya a saber que magia oscura hay detrás del Seleccionado vacio que aplicó como para que respetase y no se perdiera el formato.

 

Cosas de mandiga.

 

Saludos,

[Agustin Ortu]

Según lo que he leído en algún lado, puede que venga de más arriba el problema, aparentemente el control RichEdit de windows es una implementación bastante fea, peor si desde delphi tenenos que conformarnos con un wrapper
El resultado es que hay que recurrir a este tipo de código "oscuro", " injerto", hack, llamarlo como sea

Lo deseable es que la clase provea un método clear, que haga el trabajo como debe ser, porque estamos hablando de un control de edición de texto y limpiar el contenido es medio algo básico