#1 2014-08-17 16:18:58

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}

Offline

#2 2014-08-17 17:36:03

ab
Administrator
From: France
Registered: 2010-06-21
Posts: 14,182
Website

Re: Delphi 5 compilation failure

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

Offline

Board footer

Powered by FluxBB