Leer texto en un memo

roman · #1 22-05-2003

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 · #2 22-05-2003

Hola.

¿ Esto no te funciona ?

Código:

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

Saludos

roman · #3 22-05-2003

Cita:

Posteado originalmente por guillotmarc
Hola.

¿ Esto no te funciona ?

Código:

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