F9 misslingt

[Delbor]

Hi zusammen

Ich hab hier ein älteres Projekt, das nicht mehr startet. Die Fehlermeldung:

Zitat:

[dcc32 Fehler] SynCommons.pas(67232): E2029 Ausdruck erwartet, aber 'END' gefunden

Das Codeschnipsel:

Delphi-Quellcode:

                      function GetDelphiCompilerVersion: RawUTF8;
                      begin
                        result :=
{$IFDEF FPC}
                          'Free Pascal'
{$IFDEF VER2_6_4} + ' 2.6.4'{$ENDIF}
{$IFDEF VER3_0_0} + ' 3.0.0'{$ENDIF}
{$IFDEF VER3_0_1} + ' 3.0.1'{$ENDIF}
{$IFDEF VER3_0_2} + ' 3.0.2'{$ENDIF}
{$IFDEF VER3_1_1} + ' 3.1.1'{$ENDIF}
{$IFDEF FPC_HAS_MANAGEMENT_OPERATORS} + ' MOP'{$ENDIF}
{$ELSE}
{$IFDEF VER130} 'Delphi 5'{$ENDIF}
{$IFDEF CONDITIONALEXPRESSIONS}  // Delphi 6 or newer
{$IF     defined(KYLIX3)}'Kylix 3'
{$ELSEIF defined(VER140)}'Delphi 6'
...
...
{$ELSEIF defined(VER330)}'Delphi 10.3 Carnival'
{$IFEND}
{$ENDIF CONDITIONALEXPRESSIONS}
{$ENDIF}
{$IFDEF CPU64}
                          + ' 64 bit'
{$ENDIF}
                      end;

Doppelklick auf die Fehlermeldung setzt den Cursor vor das End;

Die ersten Zeilen der Unit:

Delphi-Quellcode:

/// common functions used by most Synopse projects
/// - this unit is a part of the freeware Synopse mORMot framework,
/// licensed under a MPL/GPL/LGPL tri-license; version 1.18
unit SynCommons;



{$I Synopse.inc} /// define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER

interface

Ich habe die Unit nie angefasst.

Gruss
Delbor