Documentation Insight mit $IF in uses ?

[himitsu]

Documentation Insight Express 2.1.8.25 (X3) scheint einige Probleme mit {$IF ...} zu haben und raucht mit einem Parsing-Error ab,
bzw. es arbeitet dann nicht mehr, weil es plötzlich denkt schon in IMPLEMENTATION zu sein, wo die Express-Edition nicht arbeiten will.

Delphi-Quellcode:

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}

Es ist dabei egal, wo und wie ich das USES und ; verteile, es raucht immer ab und der Editor deaktiviert sich.



Ist das jetzt nur ein Bug in der "alten" Version?
Und gibt es evntuell ein Update für solche alte Delphis?

Aktuell hab ich einfach alles auskommentiert und nur die XE2+-Version drin, solange ich entwickle. (aber es wäre bestimmt nett das nicht ständig umkommentieren zu müssen)

[Daniel]

Ich hatte einen ähnlichen Fall. Mache ein Minimal-Beispiel und sende es denen. Ich hatte binnen 48 Stunden eine Korrektur und man war sogar dankbar, dass ein Fehler behoben werden konnte.

[himitsu]

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}