TExcelFile

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]

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.

;) :twisted: :roll: :oops: :mrgreen: :lol: :idea: :evil: :cry: :arrow: :D :?: :-| :-x :-o :-P :-? :) :( :!: 8-O 8)