瀏覽代碼

* Add EndOfStream property for Delphi compatibility

Michaël Van Canneyt 1 年之前
父節點
當前提交
ef688a3785
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      packages/fcl-base/src/streamex.pp

+ 1 - 0
packages/fcl-base/src/streamex.pp

@@ -102,6 +102,7 @@ type
      procedure ReadLine(out AString: AnsiString); virtual; abstract; overload;
      procedure ReadLine(out AString: AnsiString); virtual; abstract; overload;
      function ReadLine: AnsiString; overload;
      function ReadLine: AnsiString; overload;
      property Eof: Boolean read IsEof;
      property Eof: Boolean read IsEof;
+     property EndOfStream : boolean read IsEof;
    end;
    end;
 
 
    { TStreamReader }
    { TStreamReader }