mORMot Open Source

begin
     aMarkDynArray.Init(TypeInfo(RMarks),myRMarks);
     SetLength(myRMarks,RowPoints.Count);
     for i := 0 to RowPoints.Count - 1 do
          myRMarks[i]:=RowPoints.Marks[i];
          MyStream.Clear;
         aMarkDynArray.SaveToStream(MyStream);
         MyStream.Position:=0;
         ZipFile.add (MyStream, Chartname+'.marks');  //row font info
end;