Guardar varios memos en un archivo

[__cadetill]

Otra idea es almacenarlos en tablas o bien, si no quieres motores de bases de datos, en ficheros XML

[jachguate]

y porque todos en un solo archivo???

Tambien podes crear un archivo por cada memo, y valerte de los métodos SaveToFile y LoadFromFile de su propiedad lines....

[esocrates]

Empezado por jachguate

y porque todos en un solo archivo???

Tambien podes crear un archivo por cada memo, y valerte de los métodos SaveToFile y LoadFromFile de su propiedad lines....

Es cierto que podría hacerlo de esa manera. Lo que pasa es que el modo de guardar en un sólo archivo lo he visto en muchas aplicaciones trial que trato de imitar para aprender a resolver los problemas que me plantean.
Un saludo

[[Lepe]]

Bueno, no es exactamente una solucion.... pero en fin,.....

Las lmdtools hacen lo que quieres con el componente LmdstringList.

Es un "TStringsList" de Tstrings que hace lo que deseas.

Yo uso la version Freeware, LMDTOOLS V.6 Special Edition.

LMDstr.LoadFromFile('c:\strings.txt');

grid.RowCount:= LMDstr.Items[0].Items.Count; 

for i:=0 to LMDstr.Count-1 do 
  grid.Cols[i].Assign(LMDstr.Items[i].items);

Con este código, asigno primero las filas del StringGrid,
Despues, cargo en cada columna, los datos de cada TString.

SAludos

[esocrates]

Empezado por Lepe

LMDstr.LoadFromFile('c:\strings.txt');

grid.RowCount:= LMDstr.Items[0].Items.Count; 

for i:=0 to LMDstr.Count-1 do 
  grid.Cols[i].Assign(LMDstr.Items[i].items);

Con este código, asigno primero las filas del StringGrid,
Despues, cargo en cada columna, los datos de cada TString.

SAludos

Hola Lepe. Gracias por tu aporte. No comprendo a partir del código sugerido cómo ingreso el contenido de cinco Memos y luego restituyo a cada uno el texto guardado en el LmdstringList.
Un saludo

[[Lepe]]

Bueno.... en principio no sabia si usabas las LmdTools, así que puse un esbozo de como sería. A continuacion tienes algo mas serio.

Necesitas en un Form:
- tres botones (Tbutton)
- tres memos ( no hace falta que salgas a la calle a buscar ninguno..... con los de la paleta Standar de delphi ya vale )
- Un componente TlmdStringList en tu formulario.
- Un Label.

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:Integer;
    v : TLMDListItem;
begin
for k := 0 to 2 do   // vamos a añadir 3 TlmdStringList
begin
  j:=  LMDStringList1.Add(v);  // en j recogemos el indice del recien creado TlmdStringList
  for i:= 0 to 2 do
    LMDStringList1.Items[j].Items.Add('StringList nº ' + IntToStr(j)+ ' linea '+ IntToStr(i));
    //añadimos varias lineas indicando en que Stringlist está y el nº de cada linea
    // esto seria el contenido de cada memo
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
LMDStringList1.SaveToFile('c:\mismemos.txt'); // pos eso 
end;

procedure TForm1.Button3Click(Sender: TObject);
var i:Integer;
begin
LMDStringList1.LoadFromFile('c:\mismemos.txt');   // pos vale, pos me alegro
label1.Caption := ' Total de TLmdStringList: '+IntToStr(LMDStringList1.Count);

  // items[0]  es el primer StringList Creado
  // Items[0].items son las lineas de cada memo.
  Memo1.Lines.Assign(LMDStringList1.Items[0].items);
  Memo2.Lines.Assign(LMDStringList1.Items[1].Items);
  Memo3.Lines.Assign(LMDStringList1.Items[2].Items);
end;

Arrancas el programa, pulsas el boton 1, despues el 2 y por ultimo el 3 y verás como se leen desde el archivo c:\mismemos.txt los 3 stringlist y se ponen en el memo correspondiente.

Da la casualidad que me hoy mismo he estado trabajando con este componente para guardar las columnas de un StringGrid en un único archivo, por eso te puse ese código mas bien rarito.




Con este codigo no creo que tengas problemas, y si los tienes, ya sabes

Saludos desde Lepe

[[Lepe]]

Logicamente ese código es para empezar... despues tendrás que hacer algo más.

Por ejemplo, en lmdstringList1.items[0].Description puedes guardar... no sé, el TabIndex del tabSheet, y despues, al cargar el LMDStringList, accedes a esa propiedad, la conviertes a un nº entero, y creas la pagina del TabSheet, el memo, y por ultimo le asignas las Lineas.

Espero haberme explicado.