unit Unit1;
interface
uses
{$IF CompilerVersion >= 23} // Delphi XE2
Winapi.Windows, System.RTLConsts, System.SysUtils, System.StrUtils, System.Classes, System.Math, System.Generics.Defaults, System.Generics.Collections;
{$ELSE}
Windows, RTLConsts, SysUtils, StrUtils, Classes, Math, Generics.Defaults, Generics.Collections;
{$IFEND}
type
TTest = class
end;
implementation
end.
TTest
> Tip: All non-public code elements cannot be documented in the Express Edition
Parser Logs
> 9: 5 'Implementation' expected found 'Windows'
> 9: 5 InvalidInitializationSection found Windows
> 9: 5 'Point' expected found 'Windows'
uses
{$IF CompilerVersion >= 23} // Delphi XE2
Winapi.Windows, System.RTLConsts, System.SysUtils, System.StrUtils, System.Classes, System.Math, System.Generics.Defaults, System.Generics.Collections
{$ELSE}
Windows, RTLConsts, SysUtils, StrUtils, Classes, Math, Generics.Defaults, Generics.Collections
{$IFEND};
{$IF CompilerVersion >= 23} // Delphi XE2
uses
Winapi.Windows, System.RTLConsts, System.SysUtils, System.StrUtils, System.Classes, System.Math, System.Generics.Defaults, System.Generics.Collections;
{$ELSE}
uses
Windows, RTLConsts, SysUtils, StrUtils, Classes, Math, Generics.Defaults, Generics.Collections;
{$IFEND}