mORMot Open Source

syagrius

Member

Registered: 2013-02-27

Posts: 13

Delphi 5 compilation failure

Hi,

I found an issue under Delphi 5.

Class definition of TFakeWriterStream is in the wrong section (NOVARIANTS).
I think it should be located after {$endif DELPHI2010} and before {$ifndef NOVARIANTS} (line 24140) like this:

{$endif ISDELPHI2010}
type
  /// a fake TStream, which will just count the number of bytes written
  TFakeWriterStream = class(TStream)
  public
    function Read(var Buffer; Count: Longint): Longint; override;
    function Write(const Buffer; Count: Longint): Longint; override;
    function Seek(Offset: Longint; Origin: Word): Longint; override;
  end;

function TFakeWriterStream.Read(var Buffer; Count: Longint): Longint;
begin // do nothing
  result := Count;
end;

function TFakeWriterStream.Write(const Buffer; Count: Longint): Longint;
begin // do nothing
  result := Count;
end;

function TFakeWriterStream.Seek(Offset: Longint; Origin: Word): Longint;
begin
  result := Offset;
end;

{$ifndef NOVARIANTS}

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,659

Website

Re: Delphi 5 compilation failure

It has already been fixed some hours ago.
See http://synopse.info/fossil/info/012bb2dfa14