Ver Mensaje Individual
  #1  
Antiguo 04-03-2008
whatson whatson is offline
Miembro
 
Registrado: dic 2007
Posts: 19
Reputación: 0
whatson Va por buen camino
Como elimino el ultimo renglon vacio de un Tmemo ?

Buen dia,
Tengo un Tmemo con las dimensiones necesarias para que me muestre cuatro renglones para mis datos.
Estos datos provienen de una tabla y son llamados de la siguiente forma :
Código Delphi [-]

with ZTableClientes do
  begin
     // Muestra los datos del cliente
     MemoClientes.Clear;
     MemoClientes.Lines.Add(FieldByName('NOMBRE').asString );
     MemoClientes.Lines.Add(FieldByName('CALLE').asString );
     MemoClientes.Lines.Add(FieldByName('POBLA').asString );
     Memoclientes.Lines.Add(FieldByName('RFC').asString );
  end;

En el campo de la tabla logicamente, Me graba con sus respectivos salto de linea : NOM DEL CLIENTE||DOMICILIO DEL CLIENTE||POBLACION DEL CLIENTE||RFC DEL CLIENTE||

Los cuales me sirven para posteriormente ser llamados para rellenar un mismo Tmemo colocando los datos en sus respectivo renglones, Hata aqui todo bien.

El problema principal es de que necesito borrar del campo una vez guardado los datos los ultimos dos caracteres (||) de la ultima linea que tengo entendido corresponden a (fin de linea #10) y (retorno de carro #13) o algo asi.

Para que Me quede grabado el el campo en Mi tabla asi : NOM DEL CLIENTE||DOMICILIO DEL CLIENTE||POBLACION DEL CLIENTE||RFC DEL CLIENTE


Creo que cuando se graba en el campo de la tabla al final de todo los datos estas dos barras verticales
es el que me esta ocacionando que me aparesca en el Tmemo , la ultima linea en blanco.
Esto proboca que , si la altura del Tmemo solamente Me muestra 4 renglones, pues me desplaza hacia arriba el primer renglon sin que lo pueda visualizar.

No me preocupa la visualizacion, sino de que no me grabe en el campo, el ultimo retorno de carro #10 y nueva linea #13.

De antemano , les agradezco culquier comentario al respecto.

Última edición por whatson fecha: 04-03-2008 a las 16:52:46.
Responder Con Cita