git-svn-id: trunk@32263 -
@@ -309,8 +309,10 @@ Type
{$i systhrdh.inc}
{ Type Helpers}
+ {$IFNDEF VER2_6}
{$i syshelph.inc}
-
+ {$ENDIF}
+
procedure FreeAndNil(var obj);
{ interface handling }
@@ -41,7 +41,9 @@
{$i varerror.inc}
{ Type helpers}
{$i syshelp.inc}
{$ifndef OS_FILEISREADONLY}
Function FileIsReadOnly(const FileName: RawByteString): Boolean;