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.
Código:
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