Persistir una lista de objetos

[[Lepe]]

No acabo de comprenderlo del todo, al incluir lo del polimorfismo es cuando me he perdido.

¿tendrías algún problema con este código?

Código Delphi [-]
var c:Taction
begin
   c := TactionsList.Create(...);
end;

En principio y suponiendo que TactionsList hereda de Taction, no habría ninguno.

Para Crear las clases en ejecución mira este hilo y este

Saludos

[miguel_e]

Hola de nuevo, TActionList no hereda de nadie, esta es la lista de acciones, el tiene un campo que es un TStringList el cual almacena los objetos que heredan de TAction.

aqui te pongo la interface:

TActionList = class
  private
    FPath : string;
    FList : TStringList;
  public
    constructor Create(aPath : string); reintroduce;
    destructor Destroy; override;

    procedure Add(action : TAction);
    function Delete(IdTask : string): Boolean;
    function Count: Integer;
    function IsEmpty: Boolean;
    function getAction(aIndex : integer): TAction; overload;
    function getAction(aIdTask : string): TAction; overload;

    procedure DefineProperty(aFiler : TFiler);
    procedure LoadActions(aReader : TReader);
    procedure SaveActions(aWriter : TWriter);
  end;

La clase TActionList o la lista de acciones es la que deseo hacer persistentes, el problema radica en que no se como hacerlo, y que he visto algunos ejemplos que no me han ayudado del todo, por ejemplo:

procedure TActionList.DefineProperty(aFiler: TFiler);
begin
  inherited;
  aFiler.DefineProperty('Action', LoadActions, SaveActions, true);
end;

Este metodo se usa para guardar en un fichero, se le ponen los nombres de los dos metodos(tanto salvar, como cargar), pero no se de quien entonces debe heredar TActionList, de TComponent????? Luego los metodos que salvan y cargan los objetos.

procedure TActionList.LoadActions(aReader: TReader);
var
  StrId : string;
  aAction : TAction;
begin
  aReader.ReadListBegin;
  While not aReader.EndOfList Do
  begin                                   
    StrId := aReader.ReadStr;
    aAction := (aReader.ReadComponent(nil) as TAction);
    FList.AddObject(StrId, aAction);
  end;
  aReader.ReadListEnd;
end;

procedure TActionList.SaveActions(aWriter: TWriter);
var
  i : integer;
begin
  aWriter.WriteListBegin;
  For i := 0 to FList.Count - 1 Do
  begin
    aWriter.WriteString(FList[i]);
    aWriter.WriteComponent(FList.Objects[i] as TAction);
  end;
  aWriter.WriteListEnd; 
end;

Pero esto no logro hacer que funcione, porque me faltan cosas que no se.

entonces la preguntas concretas serian:

- De quien deberia heredar TActionList???
- Donde se le dice que salve y que carge, o lo hace automatico??????
- Existe otra manera de resolver mi problema???
- Cuando cargo del fichero voy a agregando a la lista objetos tipo TActions, no habra problema al llamar a estos objetos, ya que no reconoceran el tipo especializado que eran anteriormente

salu2
miguel_e

[[Lepe]]

Este hilo te aclarará más las cosas.

Fíjate en especial como funciona el método ReadPoints, primero agranda el array FPoints, después lee de archivo y asigna esos valores.

En realidad el problema no es la clase TActionsList, sino más bien TAction, que es la que se quiere guardar y rescatar. Quizás los tiros vayan por redefinir el Reader y Writer de TAction y ahora si implementamos:

Código Delphi [-]
procedure TActionsList.SaveToFile(filename:string);
var S:TStream;
begin
  s := TfileStream.Create(filename, fmCreate);
  for i:= 0 To Flist.count -1 do
  begin
     s.WriteString(Flist[i]);
     s.WriteComponent(Flist.Objects[i]);
  end;
end;

procedure TActionsList.LoadFromFile(filename:string);
var S:TStream;
      A:Taction;
     str:string;
begin
  s := TfileStream.Create(filename, fmOpenRead);
  for i:= 0 To Self.count -1 do
  begin
    str := s.readstring;
    A := Taction.Create;
    A := s.ReadComponent(nil); // más o menos 
    Flist.AddObject(str, A);
  end;
end;

Visto así, quien tiene que implementar el reader y Writer es el propio Action (que hereda de Tcomponent) para que delphi sepa como debe guardarlo en un archivo y como debe "reconstruir el Taction desde archivo".

- De quien deberia heredar TActionList???

Viendolo así, puede derivar de TObject. TAction debe heredar de TPersistent o Tcomponet, quizás Tcomponent sea más completo.

- Donde se le dice que salve y que carge, o lo hace automatico??????

Lo dicho, en un método llamado SaveToFile; se supone que lo llamarás antes de destruir el objeto ActionsList de memoria, o incluso en su propio destructor.

- Existe otra manera de resolver mi problema???

Incluso mediante archivos .ini, pero será altamente engorroso guardar las propiedades y demás.

- Cuando cargo del fichero voy a agregando a la lista objetos tipo TActions, no habra problema al llamar a estos objetos, ya que no reconoceran el tipo especializado que eran anteriormente

Precisamente por eso es TAction el que debe implementar la forma de guardar y recuperar de archivo, para que el resultado sea un TAction y no un TComponent.

[miguel_e]

OK, todo funcionando muy bien, MUCHASS GRACIASSSSSS

salu2
miguel_e