    share.pas       .   http://hiasm.hexshock.com/xf/topic.php?t=48&start=15
procedure TArray._work_doSave;
......
  if _prop_FileFormat = 0 then
    begin
      st := NewWriteFileStream(fn);
      for i := 0 to Items.Count-1 do  
       Save(st,Items.Objects[i]);         <<< ?

           

procedure TArray._work_doSave;
......
   if _prop_FileFormat = 0 then
    begin
      st := NewWriteFileStream(fn);
      for i := 0 to Items.Count-1 do begin
       st.WriteStrEx(Items.Items[i]);          <<< !
       Save(st,Items.Objects[i]);
      end;

   
procedure TArray._work_doLoad;
.....
        while st.Position < st.Size do
         begin
           Items.Add('');                         <<<?
           Load(st,c);
           Items.Objects[Items.Count-1] := c;
         end;

procedure TArray._work_doLoad;
.....
        while st.Position < st.Size do
         begin
           Items.Add(st.ReadStrEx);                         <<< !
           Load(st,c);
           Items.Objects[Items.Count-1] := c;
         end;
