biffrecsii2.pas

一个经典的读写Excel的控件

     FormatIndex: word;
     end;

type TRK = packed record
     case integer of
       0: (V: double);
       1: (DW: array [0..1] of longint);
     end;

type PRecRK = ^TRecRK;
     TRecRK = packed record
     Row,Col: word;
     FormatIndex: word;
     Value: longword;
     end;

type PRecRSTRING = ^TRecRSTRING;
     TRecRSTRING = packed record
     Row,Col: word;
     FormatIndex: word;
     Len: word;
     Data: array[0..65535] of byte;
     end;

type PRecSCL = ^TRecSCL;
     TRecSCL = packed record
     Numerator: word;
     Denominator: word;
     end;

type PRecSELECTION = ^TRecSELECTION;
     TRecSELECTION = packed record
     Pane: byte;
     ActiveRow: word;
     ActiveCol: word;
     ActiveRef: word;
     Refs: word;
     Row1,Row2: word;
     Col1,Col2:byte
     end;

type PRecSETUP = ^TRecSETUP;
     TRecSETUP = packed record
     PaperSize: word;
     Scale: word;
     PageStart: word;
     FitWidth: word;
     FitHeight: word;
     Options: word;
     Resolution: word;
     VertResolution: word;
     HeaderMargin: double;
     FooterMargin: double;
     Copies: word;
     end;

type PRecSHRFMLA = ^TRecSHRFMLA;
     TRecSHRFMLA = packed record
     Row1,Row2: word;
     Col1,Col2: byte;
     Reserved: word;
     ParseLen: word;
     Data: array[0..65535] of byte;
     end;

type PRecSST = ^TRecSST;
     TRecSST = packed record
     Total: longword;
     Unique: longword;
     Data: array[0..MAXINT div 2] of byte;
     end;

type PRecSTRING = ^TRecSTRING;
     TRecSTRING = packed record
     Len: word;
     Data: array[0..65535] of byte;
     end;

type PRecSTRING1Byte = ^TRecSTRING1Byte;
     TRecSTRING1Byte = packed record
     Len: byte;
     Data: array[0..255] of byte;
     end;

type PRecSTYLE = ^TRecSTYLE;
     TRecSTYLE = packed record
     FormatIndex: word;
     BuiltInStyle: byte;
     Level: byte;
     end;

type PRecSUPBOOK = ^TRecSUPBOOK;
     TRecSUPBOOK = packed record
     Tabs: word;
     Data: array[0..65535] of byte;
     end;

type PRecTXO = ^TRecTXO;
     TRecTXO = packed record
     Options: word;
     Orientation: word;
     Reserved: array[0..5] of byte;
     TextLen: word;
     FormatLen: word;
     // Undocumented: The size of the TXO record may be 32 bytes (normal 18).
     // This seems to occure when the text is in a Rectangle OBJ. If the
     // size is 32 bytes, Reserved2 has the value 000E0000. Reserved2 is
     // in two parts, as the last word seems to be the size of the extra data.
     Reserved2a: word;
     ExSize: word;
     ExData:  record end;
     end;

type PRecVERTICALPAGEBREAKS = ^TRecVERTICALPAGEBREAKS;
     TRecVERTICALPAGEBREAKS = packed record
     Count: word;
     Breaks: array[0..1024] of TPageBreak;
     end;

type PRecWINDOW1 = ^TRecWINDOW1;
     TRecWINDOW1 = packed record
     Left: word;
     Top: word;
     Width: word;
     Height: word;
     Options: word;
     SelectedTabIndex: word;
     FirstDispTabIndex: word;
     SelectedTabs: word;
     TabRatio: word;
     end;

type PRecWINDOW2_7 = ^TRecWINDOW2_7;
     TRecWINDOW2_7 = packed record
     Options: word;
     TopRow: word;
     LeftCol: word;
     HeaderColorIndex: longint;
     end;

type PRecWINDOW2_8 = ^TRecWINDOW2_8;
     TRecWINDOW2_8 = packed record
     Options: word;
     TopRow: word;
     LeftCol: word;
     HeaderColorIndex: longint;
     ZoomPreview: word;
     Zoom: word;
     Reserved: longint;
     end;

type PRecWINDOW2_3 = ^TRecWINDOW2_3;
     TRecWINDOW2_3 = packed record
     Options: word;
     TopRow: word;
     LeftCol: word;
     Unknown: longint;
     end;

type PRecXCT = ^TRecXCT;
     TRecXCT = packed record
     CRNCount: word;
     SheetIndex: word;
     end;

type PRecXF3 = ^TRecXF3;
     TRecXF3 = packed record
     FontIndex: byte;
     Data: array[0..10] of byte;
     end;

type PRecXF4 = ^TRecXF4;
     TRecXF4 = packed record
     FontIndex: byte;
     FormatIndex: byte;
     Data1: word;
     Data2: byte;
     UsedAttributes: byte;
     CellColor: word;
     TopBorder: byte;
     LeftBorder: byte;
     BottomBorder: byte;
     RightBorder: byte;
     end;

type PRecXF7 = ^TRecXF7;
     TRecXF7 = packed record
     FontIndex: word;
     FormatIndex: word;
     Data1: word;
     Data2: word;
     Data3: word;
     Data4: word;
     Data5: word;
     Data6: word;
     end;

type PRecXF8 = ^TRecXF8;
     TRecXF8 = packed record
     FontIndex: word;
     NumFmtIndex: word;
     Data1: word;
     Data2: word;
     Data3: word;
     Data4: word;
     Data5: word;
     Data6: longword;
     Data7: word;
     end;

// *** Chart Records ***

type PCRec3D = ^TCRec3D;
     TCRec3D = packed record
     Rotation: word;
     Elevation: word;
     Distance: word;
     PlotHeight: word;
     Depth: word;
     Space: word;
     Flags: word;
     end;

type PCRecAI = ^TCRecAI;
     TCRecAI = packed record
     LinkType: byte;
     ReferenceType: byte;
     Flags: word;
     FormatIndex: word;
     FormulaSize: word;
     Formula: record end;
     end;

type PCRecAREA = ^TCRecAREA;
     TCRecAREA = packed record
     Flags: word;
     end;

type PCRecAREAFORMAT = ^TCRecAREAFORMAT;
     TCRecAREAFORMAT = packed record
     ColorFgRGB: longword;
     ColorBgRGB: longword;
     Pattern: word;
     Format: word;
     ColorFgIndex: word;
     ColorBgIndex: word;
     end;

type PCRecATTACHEDLABEL = ^TCRecATTACHEDLABEL;
     TCRecATTACHEDLABEL = packed record
     Flags: word;
     end;

type PCRecAXCEXT = ^TCRecAXCEXT;
     TCRecAXCEXT = packed record
     MinCategory: word;
     MaxCategory: word;
     ValueMajor: word;
     UnitsMajor: word;
     ValueMinor: word;
     UnitsMinor: word;
     BaseUnit: word;
     CrossingPoint: word;
     Flags: word;
     end;

type PCRecAXESUSED = ^TCRecAXESUSED;
     TCRecAXESUSED = packed record
     AxesSets: word;
     end;

type PCRecAXISLINEFORMAT = ^TCRecAXISLINEFORMAT;
     TCRecAXISLINEFORMAT = packed record
     LineId: word;
     end;

type PCRecAXISPARENT = ^TCRecAXISPARENT;
     TCRecAXISPARENT = packed record
     AxixIndex: word;
     Top: longword;
     Left: longword;
     Width: longword;
     Height: longword;
     end;

type PCRecAXIS = ^TCRecAXIS;
     TCRecAXIS = packed record
     AxisType: word;
     Reserved: array[0..15] of byte;
     end;

type PCRecBAR = ^TCRecBAR;
     TCRecBAR = packed record
     SpaceBars: word;
     SpaceCategories: word;
     Flags: word;
     end;

type PCRecCATSERRANGE = ^TCRecCATSERRANGE;
     TCRecCATSERRANGE = packed record
     CrossingPoint: word;
     FreqLabels: word;
     FreqMarks: word;
     Flags: word;
     end;

type PCRecCHART = ^TCRecCHART;
     TCRecCHART = packed record
     Top:    array[0..1] of word;
     Left:   array[0..1] of word;
     Width:  array[0..1] of word;
     Height: array[0..1] of word;
     end;

type PCRecCHARTFORMAT = ^TCRecCHARTFORMAT;
     TCRecCHARTFORMAT = packed record
     Reserved: array[0..15] of byte;
     Flags: word;
     DrawingOrder: word;
     end;

type PCRecDATAFORMAT = ^TCRecDATAFORMAT;
     TCRecDATAFORMAT = packed record
     PointNumber: word;
     SeriesIndex: word;
     SeriesNumber: word;
     Flags: word;
     end;

type PCRecDEFAULTTEXT = ^TCRecDEFAULTTEXT;
     TCRecDEFAULTTEXT = packed record
     Id: word;
     end;

type PCRecFBI = ^TCRecFBI;
     TCRecFBI = packed record
     Width: word;
     Height: word;
     HeightApplied: word;
     Scale: word;
     Index: word;
     end;

type PCRecFBI_Font = ^TCRecFBI_Font;
     TCRecFBI_Font = packed record
     Width: word;
     Height: word;
     HeightApplied: word;
     Scale: word;
     Index: word;
     XFont: TObject;
     end;

type PCRecFONTX = ^TCRecFONTX;
     TCRecFONTX = packed record
     FontIndex: word;
     end;

type PCRecFRAME = ^TCRecFRAME;
     TCRecFRAME = packed record
     FrameType: word;
     Flags: word;
     end;

// Undocumented
type PCRecGEOMETRY = ^TCRecGEOMETRY;
     TCRecGEOMETRY = packed record
     ItemType: word;
     end;

type PCRecLEGEND_ = ^TCRecLEGEND_;
     TCRecLEGEND_ = packed record
     Top: longword;
     Left: longword;
     Width: longword;
     Height: longword;
     LegendType: byte;
     Spacing: byte;
     Flags: word;
     end;

type PCRecLINE = ^TCRecLINE;
     TCRecLINE = packed record
     Flags: word;
     end;

type PCRecLINEFORMAT = ^TCRecLINEFORMAT;
     TCRecLINEFORMAT = packed record
     ColorRGB: longword;
     Pattern: word;
     Weight: word;
     Format: word;
     ColorIndex: word;
     end;

type PCRecMARKERFORMAT = ^TCRecMARKERFORMAT;
     TCRecMARKERFORMAT = packed record
     ColorFgRGB: longword;
     ColorBgRGB: longword;
     TypeOfMarker: word;
     Format: word;
     ColorFgIndex: word;
     ColorBgIndex: word;
     Size: longword;
     end;

type PCRecOBJECTLINK = ^TCRecOBJECTLINK;
     TCRecOBJECTLINK = packed record
     LinkedTo: word;
     IndexSeries: word;
     IndexData: word;
     end;

type PCRecPLOTGROWTH = ^TCRecPLOTGROWTH;
     TCRecPLOTGROWTH = packed record
     Horizontal: array[0..1] of word;
     Vertical: array[0..1] of word;
     end;

type PCRecPICF = ^TCRecPICF;
     TCRecPICF = packed record
     PaintMode: word;
     ImageFormat: word;
     Environment: byte;
     Flags: byte;
     Scaling: double;
     end;

type PCRecPIE = ^TCRecPIE;
     TCRecPIE = packed record
     Angle: word;
     Donut: word;
     Flags: word;
     end;

type PCRecPIEFORMAT = ^TCRecPIEFORMAT;
     TCRecPIEFORMAT = packed record
     Percent: word;
     end;

type PCRecPOS = ^TCRecPOS;
     TCRecPOS = packed record
     TopLt: word;
     TopRt: word;
     X1: longword;
     Y1: longword;
     X2: longword;
     Y2: longword;
     end;

type PCRecRADAR = ^TCRecRADAR;
     TCRecRADAR = packed record
     Flags: word;
     end;

type PCRecRADARAREA = ^TCRecRADARAREA;
     TCRecRADARAREA = packed record
     Flags: word;
     end;

type PCRecSCATTER = ^TCRecSCATTER;
     TCRecSCATTER = packed record
     BubblePercent: word;
     BubbleSizeIs: word;
     Flags: word;
     end;

type PCRecSERIES = ^TCRecSERIES;
     TCRecSERIES = packed record
     CategoriesType: word;
     ValuesType: word;
     CategoriesCount: word;
     ValuesCount: word;
     BubbleType: word;
     BubbleCount: word;
     end;

type PCRecSERIESTEXT = ^TCRecSERIESTEXT;
     TCRecSERIESTEXT = packed record
     TextId: word;
     Length: byte;
     Text: record end;
     end;

type PCRecSERTOCRT = ^TCRecSERTOCRT;
     TCRecSERTOCRT = packed record
     ChartGroupIndex: word;
     end;

type PCRecSHTPROPS = ^TCRecSHTPROPS;
     TCRecSHTPROPS = packed record
     Flags: word;
     BlanksAs: byte;
     Unknown: byte;
     end;

type PCRecSIINDEX = ^TCRecSIINDEX;
     TCRecSIINDEX = packed record
     Index: word;
     end;

type PCRecSURFACE = ^TCRecSURFACE;
     TCRecSURFACE = packed record
     Flags: word;
     end;

type PCRecTEXT = ^TCRecTEXT;
     TCRecTEXT = packed record
     HorizAlignment: byte;
     VertAlignment: byte;
     BkgMode: word;
     ColorRGB: longword;
     Left: longword;
     Top: longword;
     Width: longword;
     Height: longword;
     Options1: word;
     ColorIndex: word;
     Options2: word;
     Rotation: word;
     end;

type PCRecTICK = ^TCRecTICK;
     TCRecTICK = packed record
     MajorMark: byte;
     MinorMark: byte;
     LabelPos: byte;
     BkgMode: byte;
     ColorRGB: longword;
     Reserved1: array[0..15] of byte;
     Flags: word;
     ColorIndex: word;
     Rotation: word;
     end;

type PCRecVALUERANGE = ^TCRecVALUERANGE;
     TCRecVALUERANGE = packed record
     MinValue: double;
     MaxValue: double;
     MajorInc: double;
     MinorInc: double;
     AxisCrosses: double;
     Flags: word;
     end;

implementation

end.