pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fixed bug 2897449 by Luiz Camara

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1006 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Joshy
2009-11-14 18:46:10 +00:00
parent 99cae074b1
commit cafe31ad59
1 changed files with 4 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/fpspreadsheet/fpolebasic.pas
View File

@ -7,6 +7,10 @@ Note: Compatibility with previous version (fpolestorage.pas).
} }
unit fpolebasic; unit fpolebasic;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface interface
uses uses
@ -28,8 +32,6 @@ type
TOLEStorage = class TOLEStorage = class
private private
public public
constructor Create;
destructor Destroy; override;
procedure WriteOLEFile(AFileName: string; AOLEDocument: TOLEDocument; const AOverwriteExisting: Boolean = False; const AStreamName: UTF8String='Book'); procedure WriteOLEFile(AFileName: string; AOLEDocument: TOLEDocument; const AOverwriteExisting: Boolean = False; const AStreamName: UTF8String='Book');
procedure ReadOLEFile(AFileName: string; AOLEDocument: TOLEDocument; const AStreamName: UTF8String='Book'); procedure ReadOLEFile(AFileName: string; AOLEDocument: TOLEDocument; const AStreamName: UTF8String='Book');
procedure FreeOLEDocumentData(AOLEDocument: TOLEDocument); procedure FreeOLEDocumentData(AOLEDocument: TOLEDocument);
@ -37,16 +39,6 @@ type
implementation implementation
constructor TOLEStorage.Create;
begin
inherited Create;
end;
destructor TOLEStorage.Destroy;
begin
inherited Destroy;
end;
{@@ {@@
Writes the OLE document specified in AOLEDocument Writes the OLE document specified in AOLEDocument
to the file with name AFileName. The routine will fail to the file with name AFileName. The routine will fail