XLSReadWriteII5 Cell Comments 单元注释

 XLSReadWriteII5 Cell Comments 单元注释

    XLSReadWriteII5、6可以为Cell加入注释，通过TXLSComment读写Cell指定注释。

     一、TXLSComment对象
    TXLSComment是XLSReadWriteII5读写Cell注释的对象。
    TXLSComment关键属性：
    1、Count      Sheet中注释总数
    2、Col        注释的列
    3、Row        注释的行
    4、Author     注释作者
    5、PlainText  注释明文

    二、单元

uses
    XLSReadWriteII5, XLSComment5, Xc12Utils5, XLSSheetData5, XLSCmdFormat5;

    三、读取注释

procedure TMainFrm.ShowComment(Sender: TObject);
var Comment: TXLSComment;                                     // 注释对象
    S1,S2,S3:string;
begin
  for i := 0 to XLS[0].Comments.Count - 1 do                  // 评论列表 数量 
  begin
    Comment := XLS[0].Comments[i];                            // Comments列表
    S1:= Comment.Author;
    S2:= Comment.PlainText;
    S3:= ColRowToRefStr(Comment.Col,Comment.Row);             // 行列字段 
    Memo1.Items.Add(行列：'+S1+' 标注：'+S1+' 注释：'+S2);
  end;
end;

    四、写入（加入）注释

 

procedure TMainFrm.Add1Click(Sender: TObject);
begin
// 添加带有作者的注释
  XLS[0].Comments.Add(1,4,'Frank Borland','Hello,world');
// 添加没有作者的注释
  XLS[0].Comments.Add(1,5,'','Hello,world');
end;