PDA

Ver la Versión Completa : Leer texto en un memo


roman
22-05-2003, 18:55:55
Si tengo una cadena de texto con cambios de línea insertados (#13#10) la puedo asignar a la propiedad Text de un Memo y las líneas se muestran correctamente.

Pero en mi caso en lugar de #13#10 sólo tengo #10 (como en UNIX me parece) y las líneas no se despliegan correctamente.

¿Hay alguna forma fácil de convertir los #10 en #13#10? (funciones como StringReplace no parecen servir) o bien de leer en el memo cadenas de este tipo?

Gracias \\

guillotmarc
22-05-2003, 19:06:21
Hola.

¿ Esto no te funciona ?


Memo1.Text := StringReplace(Memo1.Text, chr(10), chr(13) + chr(10), [rfReplaceAll]);


Saludos

roman
22-05-2003, 19:16:35
Posteado originalmente por guillotmarc
Hola.

¿ Esto no te funciona ?


Memo1.Text := StringReplace(Memo1.Text, chr(10), chr(13) + chr(10), [rfReplaceAll]);


Saludos

¡Gracias marc!

Sí funciona, lo que no funciona bien hoy es la sinapsis de mis neuronas :( y no me di cuenta de que StringReplace es una función y no un procedimiento.

También, por si a alguien le sirve, hay una función especial para esto (no la había encontrado):

AdjustLineBreaks

// Saludos