Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.279 Beiträge
 
Delphi 12 Athens
 
#3

AW: Documentation Insight mit $IF in uses ?

  Alt 3. Jan 2014, 15:46
Dann muß ich daraus nur noch eine nette eMail mit englischer und verständlicher Beschreibung machen.
Ich geh erstmal was essen ... hab ich heute irgendwie vergessen.

Code:
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}
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat