> {                 p_objAttuale := (lstOggetti.Items[i]); Doesn't work!

> {        objAttuale:=(lstOggetti.Items[i] as attributi);  Doesn't work}

> I have a list of objects (defined by myself). At the moment of exiting
> the program, or with the explicit "save" command, the list must be saved
> in a text file. The next time I start the program the data from the file
> must be loaded back in the list of objects. But I have problems with the
> pointer casting to get the each object from the list. The similar
> problem I have also with the TCollection class.
> Can anybody help me? Thanks in advance.

> Stiv

> -----------------------------------------------------------

> Here is a reduced version of the procedure I use to save the data from
> the list to the file. I've also put here (commented) the metods I had
> try to resolve the problem.

>    procedure managerCampi.salva;

> // The list  "lstOggetti"  is global in this program.
>      var fileBackup: TextFile;
>      strRiga: String;
>      i: integer;
>      objAttuale: attributi; {The object from which I want to get the
> "nome" property; it should get the values of every element of the list.
> The definition of the "attributi" class is in another file (I used the
> instruction "use")}
>      p_objAttuale: ^attributi;

>      begin
>        AssignFile(fileBackup, 'foo.bak');
>        Rewrite(fileBackup);

>        for i:=0 to (lstOggetti.Count - 1) do
>          begin

> {        objAttuale:=attributi(lstOggetti[i]);  Doesn't work!}

> {                 p_objAttuale := (lstOggetti.Items[i]); Doesn't work!
>          objAttuale := p_objAttuale^;}

> {        objAttuale:=(lstOggetti.Items[i] as attributi);  Doesn't work}

>               strRiga:= objAttuale.nome;
>               writeln(fileBackup, strRiga );
>          end;

>        CloseFile(fileBackup);

>      end;

> Shouldn't it be 'uses'?