Cadena en archivo de texto

[ixMike]

jeje, ¿nuevo en esto de la programación, eh?

Veamos, veamos....

El componente TMemo tiene una propiedad llamada Lines, de tipo TStrings. Esa propiedad es la que contiene el texto del TMemo.

El tipo TStrings posee un método para guardar el texto que contiene en un archivo, llamado SaveToFile. Claro, si guardas el texto "Hola, qué tal?" en el archivo "saludo.txt", pero el archivo "saludo.txt" ya existía, entonces lo que tenía se pierde, y se guarda lo nuevo, "Hola, qué tal?".

Entonces, tienes dos formas de solucionar esto:

1ª. Que tu programa visualice en el Memo todo el texto que ya ha sido guardado antes. Para eso, tienes el método de TStrins LoadFromFile. ¿Adivinas para qué sirve?
2ª. Crear tu propio objeto TStrings temporal para añadirle el texto. Sería así:

Código Delphi [-]
var
  Lista: TStrings;
begin
  Lista:=TStringList.Create; //Creamos el objeto;
  Lista.LoadFromFile('C:\archivo.txt'); //Cargamos en Lista el archivo.
  Lista.AddStrings(Memo1.Lines); //Añadimos a Lista todo el texto del Memo
  Lista.SaveToFile('C:\archivo.txt'); //Guardamos el texto en el archivo.
  Lista.Free; //Borramos el objeto de la memoria
end;

Véase que, aunque el objeto está declarado como TStrings, se crea como TStringList. Esto siempre tienes que hacerlo así, ya que TStrings es una clase abstracta y... bueno, ni yo mismo sé lo que significa, pero sé que hay que hacerlo así.

Espero que te sirva de ayuda. Para más dudas, mira la ayuda de Delphi sobre TMemo, TStrings.. y todo lo que necesites.


Salu2