Cita:
Empezado por esocrates
Lo que quiero hacer es guardar el contenido de los memos en una carpeta del disco.
Intento, sin conseguirlo, hacer un bucle que recorra todos los TabSheets y guarde el contenido de los memos. Esa es la idea que quiero llevar adelante.
|
Prueba con algo como ésto:
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
const
DIRECTORIO = 'c:\Temp\';
var
i,j:Integer;
begin
j := 0;
for i := 0 to (PageControl1.PageCount - 1) do begin
while j < (Self.ComponentCount) do begin
if (Self.Components[j] is TMemo) then begin
if (TMemo(Self.Components[j]).Parent = PageControl1.Pages[i]) then begin
TMemo(Self.Components[j]).Lines.SaveToFile(
DIRECTORIO + TMemo(Self.Components[j]).Name +
'.txt');
end;
end;
j := j + 1;
end;
j := 0;
end;
end;
Si tienes dudas ya dirás...