INSERTAR SALTO DE LINEA EN UN TMEMO
Publicado por M.A (21 intervenciones) el 07/08/2003 00:27:17
Hola amigos:
No se como resolver mi problema, se trata de los siguiente:
Tengo un tmemo al cual quiero que al cumplirse determinado numero de caracteres se inserte un salto de linea automaticamente al estar el usuario capturando en tiempo de ejecucion. Yo puse el siguiente codigo en el objeto OnKeypress del objeto tmemo
procedure TFAutoriza.edit_doc_anexaKeyPress(Sender: TObject;
var Key: Char);
var
x:variant;
begin
x:=length(edit_doc_anexa.Lines.Text);
if (x mod 35 =0) AND (X>1) AND (KEY<>#8) AND (KEY<>#32) then
BEGIN
edit_doc_anexa.Lines.Add(#10)
end;
Pero no me da los resultados que yo quiero ya que a pesar de que si inserta el salto de linea, se puede visualizar en el tmemo un caracter extraño que no quiero que me aparezca ya que esto confundiria a los usuarios. Que puedo hacer para que no me muestre este caracter raro????
Espero que mi explicacion sea entendible y puedan ayudarme con este dilema.
Muchas gracias!
No se como resolver mi problema, se trata de los siguiente:
Tengo un tmemo al cual quiero que al cumplirse determinado numero de caracteres se inserte un salto de linea automaticamente al estar el usuario capturando en tiempo de ejecucion. Yo puse el siguiente codigo en el objeto OnKeypress del objeto tmemo
procedure TFAutoriza.edit_doc_anexaKeyPress(Sender: TObject;
var Key: Char);
var
x:variant;
begin
x:=length(edit_doc_anexa.Lines.Text);
if (x mod 35 =0) AND (X>1) AND (KEY<>#8) AND (KEY<>#32) then
BEGIN
edit_doc_anexa.Lines.Add(#10)
end;
Pero no me da los resultados que yo quiero ya que a pesar de que si inserta el salto de linea, se puede visualizar en el tmemo un caracter extraño que no quiero que me aparezca ya que esto confundiria a los usuarios. Que puedo hacer para que no me muestre este caracter raro????
Espero que mi explicacion sea entendible y puedan ayudarme con este dilema.
Muchas gracias!
Valora esta pregunta
0