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