Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cortar lineas automaticamente en campos memo (https://www.clubdelphi.com/foros/showthread.php?t=19076)

taita 03-03-2005 18:31:51

Cortar lineas automaticamente en campos memo
 
Hola a tod@s:
Tengo un pequeño problema que me han planteado.
Tengo un Tmemo en el que desde mi formulario puedo escribir tranquilamente y hacer que reconozca los ENTER que ingreso. El problema es que necesitamos que cuando escribamos algo en el Tmemo, (que tiene la propiedad wordwrap en True), éste detecte el final de cada línea y, automáticamente ingrese una bajada de línea y un retorno de carro.
El Tmemo además debe tener un tamaño que permita escribir unos 60 caracteres y, quizá lo más importante, en caso de tener que continuar con una palabra que queda entre dos líneas, debe conservarla intacta.
Resumiendo: Las líneas que se ingresan el el Tmemo no deben superar los 60 caracteres y debe automáticamente hacer que cada una de ellas termine en un CTR+LF.
Todo este lío es debido a que los datos se escriben en un archivo de texto que sale por un formulario con ese tipo de formato.

¿Alguna sugerencia?
Gracias a tod@s.

Lepe 04-03-2005 11:40:37

Cita:

Empezado por NkStrs libreria de las NKLibs
// Devuelve un TString que contiene las líneas completas que resultan de
// partir la cadena s en líneas de como mucho nWide caracteres sin romper
// ninguna palabra.
function BreakMemo(const s: String; nWide: Integer; lJustify: Boolean): TStringList;

Facilmente se le puede añadir un crlf a cada linea no??

Saludos

taita 04-03-2005 13:45:12

Gracias Lepe.
Es justo lo que estaba buscando.
Gracias.


La franja horaria es GMT +2. Ahora son las 19:45:26.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi