المحتويات الرئيسية نظرة عامة نظرة عامة على واجهة XLSX

الفئتان TXLSXComments / TXLSXComment

دعم تعليقات الخلايا في TXLSXWorksheet. يُرفَق كل إدخال بمؤلف ونص إلى الخلية. يحفظ SaveAs التعليقات في xl/comments1.xml مع ملفات vmlDrawing المصاحبة

إعلان TXLSXComment

type
  TXLSXComment = class
    constructor Create(ARow, ACol: Integer; const AAuthor, AText: WideString);
    property Row: Integer;
    property Col: Integer;
    property Author: WideString;
    property Text: WideString;
  end;

أعضاء TXLSXComment

Row, Col	1-مستند خلية anchor coordinates
Author	اسم مؤلف التعليق. تُكتب الأسماء المختلفة مرة واحدة في قائمة <authors> على مستوى المصنف وتُشار عبر authorId
Text	نص جسم التعليق. يُكتب كتتابع واحد <text><r><t> عند SaveAs ويُسطَّح من تتابع واحد أو أكثر عند Open

إعلان TXLSXComments

type
  TXLSXComments = class
    constructor Create;
    destructor Destroy; override;
    function Add(ARow, ACol: Integer; const AText: WideString): Integer; overload;
    function Add(ARow, ACol: Integer; const AText, AAuthor: WideString): Integer; overload;
    function IndexOfCell(ARow, ACol: Integer): Integer;
    function FindAt(ARow, ACol: Integer): TXLSXComment;
    function DeleteAt(ARow, ACol: Integer): Boolean;
    function DeleteInRange(ARow1, ACol1, ARow2, ACol2: Integer): Integer;
    procedure Delete(Index: Integer);
    procedure Clear;
    property Count: Integer;
    property Items[Index: Integer]: TXLSXComment; default;
  end;

أعضاء TXLSXComments

Add(Row, Col, Text)	يضيف تعليقًا غير موقَّع (مؤلف فارغ). يعيد فهرس الإدخال الجديد
Add(Row, Col, Text, Author)	يضيف تعليقًا مع اسم مؤلف صريح
IndexOfCell(Row, Col)	يعيد الفهرس 0-based للعمود المرتبط عند إحداثي الخلية 1-based، أو -1 عندما لا تحتوي الخلية على تعليق
FindAt(Row, Col)	يعيد كائن التعليق المرتبط بالخلية، أو nil عندما لا يوجد تعليق
DeleteAt(Row, Col)	يحذف التعليق المثبّت عند الخلية ويعيد True؛ ويعيد False عند عدم وجود تعليق مطابق
DeleteInRange(Row1, Col1, Row2, Col2)	يحذف كل تعليق تكون مرساته داخل نطاق الخلايا الشامل المعتمد على 1 ويعيد عدد العناصر المحذوفة. تُقبل الإحداثيات المعكوسة
Delete(Index)	يحذف التعليق عند فهرس المجموعة المعطى المعتمد على 0
Count	عدد التعليقات في ورقة العمل
Items[Index]	التعليق عند الفهرس المعطى المعتمد على 0. معلن كخاصية افتراضية
Clear	يزيل ويحذف كل تعليق

مثال

var
  ws: TXLSXWorksheet;
begin
  ws := Workbook.Sheets.Add('Reviews');

  ws.Cells.Item[1, 1].Value := 'Q1 revenue';
  ws.AddComment(1, 1, 'Numbers still pending review', 'Kevin');

  // Equivalent through the collection:
  ws.Comments.Add(2, 1, 'Auto-generated draft');

  if ws.Comments.IndexOfCell(1, 1) >= 0 then
    ws.Comments.DeleteAt(1, 1);
end;