Преглед на файлове

* Add TStreamOriginalFormat for Delphi compatibility

Michaël Van Canneyt преди 1 година
родител
ревизия
8179aadb2c
променени са 1 файла, в които са добавени 1 реда и са изтрити 0 реда
  1. 1 0
      rtl/objpas/classes/classesh.inc

+ 1 - 0
rtl/objpas/classes/classesh.inc

@@ -63,6 +63,7 @@ const
 
 type
   TSeekOrigin = (soBeginning, soCurrent, soEnd);
+  TStreamOriginalFormat = (sofUnknown, sofBinary, sofText, sofUTF8Text);
   TDuplicates = TYU.TDuplicates;
 
 // For Delphi and backwards compatibility.