Description	create an Microsoft Excel SpreadSheet File in BIFF8 Format (Excel 97/2000/XP) > *.XLS
Version	v0.96
Date	04.12.2011
System	Win32
Personality	Delphi 2010-XE / Delphi 7-XE
Support	www.delphipraxis.net/164833-e.html
License	MPL v1.1 , GPL v3.0 or LGPL v3.0

Eine kleine Klasse, welches binäre Excel-Dateien im BIFF8 Format erstellen kann.
Die selbsterstellten Dateien lassen sich auch wieder auslesen.

Da aktuell noch keine große Behandlung von fremden/unbekannten Steuercodes implementiert ist, ist es auch fast nie möglich fremderstellte Dateien zu öffnen, aber eigentlich wurde diese Klasse eh nur für einen Excel-Export entwickelt.

Eine Beispielkomponente, für den Export eines TStringGrid, ist ebenfalls mit beigelegt.

[code lang=“delphi“]TExcelFile = class(TComponent)
constructor Create(Owner: TComponent); override;
destructor Destroy; override;

function Rows: Integer;
function Cols: Integer;
function Size: TPoint;

property CellType [Col, Row: Integer]: TExcelType read GetCellType;
property Cell [Col, Row: Integer]: Variant read GetVarCell write SetVarCell;
property StrCell [Col, Row: Integer]: AnsiString read GetStrCell write SetStrCell;
property IntCell [Col, Row: Integer]: LongInt read GetIntCell write SetIntCell;
property FloatCell[Col, Row: Integer]: Double read GetFloatCell write SetFloatCell;

procedure Clear;

procedure SaveToStream (Stream: TStream; SaveEmptyCells: Boolean = False);
procedure SaveToFile (FileName: String; SaveEmptyCells: Boolean = False);

procedure LoadFromStream(Stream: TStream); // Achtung, nur begrennz nutzbar
procedure LoadFromFile (FileName: String); //
end;[/code]