FastReport集粹(二)

//存储剪贴板内容到文件中
procedure TfrDesignerForm.ClipSaveFileClick(Sender: TObject);
var
  fs, ms: TStream;
  i, n: integer;
  p: PInteger;
  b: Byte;
  s: string;
  t: TfrView;
begin
  fs := TFileStream.Create('c:/frclip.dat', fmCreate or fmOpenWrite);
  t := TfrView.Create;
  new(p);
  try
    n := ClipBd.Count;
    fs.WriteBuffer(n, sizeof(integer)); //先把项数写在头部
    for i:=0 to ClipBd.Count-1 do //接着是数据项
    begin
      //从剪贴板中读出数据项到内存流中
      ms := TMemoryStream.Create;
      ms := ClipBd.items[i];
      ms.Position := 0;

      //从内存流中读出数据到变量中
      b := frReadByte(ms); //frReadByte函数用来读取流的第一个byte(作用不明)
      s := frReadString(ms); //frReadString函数用来读取流的类名
      t.LoadFromStream(ms); //从流里面读取对象信息

      //把变量内容写入文件流中
      frWriteByte(fs, b);
      frWriteString(fs, s);
      t.SaveToStream(fs);
    end;
  finally
    fs.Free;
  end;
end;