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;
{$ifdef fpc}
{$mode delphi}
{$endif}
interface
uses
@ -28,8 +32,6 @@ type
TOLEStorage = class
private
public
constructor Create;
destructor Destroy; override;
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 FreeOLEDocumentData(AOLEDocument: TOLEDocument);
@ -37,16 +39,6 @@ type
implementation
constructor TOLEStorage.Create;
begin
inherited Create;
end;
destructor TOLEStorage.Destroy;
begin
inherited Destroy;
end;
{@@
Writes the OLE document specified in AOLEDocument
to the file with name AFileName. The routine will fail