Alienar el texto de un memo

[bustio]

HOla:
Mi problema es el siguiente: tengo un memo en el que su contenido es leido desde un fichero.pas, donde quiero que al leer este fichero el memo respetete la idenatacion que trae. Una vez hecho esto, y que cuando el usuario presione un boton queiro que todo el texto se alinee en la primera collumna del memo, o sea, que ya no interese la identacion y que se alinee todo en la primera columna (o en alguna que sea entrada como parametro) eliminando los espacios en blanco que habran delante de la primera instruccion de cada linea(si es que hay espacios en blanco). He intentado varias variantes pero con ninguna logo el efecto deseado. Agradezco cualquier sugerencia.

GRACIAS!

[basti]

Hola

Para camibar el texto del memo, utiliza la propiedad 'lines' como si fuesen strings.

En tu caso:


whith memo1 do
begin
for i := 0 to lines.count - 1 do
while pos(' ', lines[i]) do
delete(lines[i], 1, 1);
end;

[roman]

Para quitar los espacios en blanco al principio de una cadena también puede usar la función TrimLeft:


S := TrimLeft(S);


Si la versión de Delphi no tiene TrimLeft se puede usar Trim aunque esta última también quita los espacios en blanco al final de la cadena.

// Saludos