Mal Memo y retorno de Carro al final.

[Carmelo Cash]

Hola foro:

El problema es el siguiente: Escribo en un memo, por ejemplo:

AAAAAAAAAAAA
BBBBBBBBBBBB
CCCCCCCCCCCC

Pero después de CCCCCCCCC "no aprieto [Enter]",entonces el texto queda así:

AAAAAAAAAAAA
BBBBBBBBBBBB
CCCCCCCCCCCC| <- Con el cursor ahí !!!.


Ahora bién, luego en la rutina de impresión se imprime perfecto.

El promlema es que si edito ese registro, al traer el texto y cargralo en el Memo me queda así:

AAAAAAAAAAAA
BBBBBBBBBBBB
CCCCCCCCCCCC
| <- Con el cursor ahí !!!.

O sea que le agrega un retorno de carro al final, y cada vez que lo cargo se agrega un retorno de carro. Puedo borrar todos los que se agreguen menos el último.

¿Cómo puedo eliminar este retorno de carro que se agrega al final?

Más abajo les muestro cómo hago para grabar y leer.

Desde ya muchas gracias por su atención.

Para guardar un memo hago lo siguiente:

Código Delphi [-]
procedure TF_Periodos.Guardo_Modificacion;
var
MS1 : TMemoryStream;
begin
  MS1 := TMemoryStream.Create;
  try
    Memo1.Lines.SaveToStream(MS1);
    with D_Periodos.Q_Update do begin
      ParamByName('P_OBSERVACIONES1').LoadFromStream(MS1,ftBlob);
      ExecSQL;
    end;
  finally
    ms1.Free;
  end;
end;

Para Leer hago:

Código Delphi [-]
 Memo1.Lines.Clear;
 Memo1.lines.Add(D_Periodos.Q_Periodo.FieldByName('OBSERVACIONES1').AsString);

Estoy utilizando Delphi 7 + InterBase.