Guardar varios memos en un archivo

[esocrates]

Empezado por yusnerqui

No estoy muy seguro, pero quizás pudieras usar ficheros .ini que te permiten guardar en diferentes secciones.
Lo que me hace dudar es la cantidad de texto que puede haber en cada memo, no se si los .ini te dejarán meter tanto texto en una variable pero podrías probarlo

Saludos yusnerqui

Gracias por la respuesta yusnerqui. No sé cómo implementar su sugerencia.
Si lo pudés aclarar un poco más me harías un favor. Lo mismo si aparece otra idea.
Me pregunto si no será necesario hacer una base de datos para resolver esto. Pero no lo tengo para nada claro.
Un saludo y hasta pronto

[__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