Schön, und wo ist jetzt der Fehler?
Habe nur den Quelltext von oben genommen und versucht den Fehler darin zu finden.
Dass Du da was ergänzt hast, habe ich auch verstanden.
Und bei der Umsetzung Deines Vorschlages und der damit verbundenen Ergänzung ist bei oldmann nun ein Fehler aufgetreten.
Was ist jetzt falsch?
Das Original, Deine Ergänzung oder die Art der Umsetzung Deiner Ergänzung?
PS:
Und vermutlich ist bei der Umsetzung ein {$ifend} verlorengegangen.
Delphi-Quellcode:
// function GetDelphiCompilerVersion: RawUTF8;
function GetDelphiCompilerVersion: String;
begin
result :=
{$ifdef FPC}
'Free Pascal'
{$ifdef VER2_4_0}+' 2.4.0'{$endif}
{$ifdef VER2_4_2}+' 2.4.2'{$endif}
{$ifdef VER2_4_3}+' 2.4.3'{$endif}
{$ifdef VER2_4_4}+' 2.4.4'{$endif}
{$ifdef VER2_5_0}+' 2.5.0'{$endif}
{$ifdef VER2_5_1}+' 2.5.1'{$endif}
{$ifdef VER2_6_0}+' 2.6.0'{$endif}
{$ifdef VER2_6_1}+' 2.6.1'{$endif}
{$ifdef VER2_6_2}+' 2.6.2'{$endif}
{$ifdef VER2_6_3}+' 2.6.3'{$endif}
{$ifdef VER2_6_4}+' 2.6.4'{$endif}
{$ifdef VER2_7_0}+' 2.7.0'{$endif}
{$ifdef VER2_7_1}+' 2.7.1'{$endif}
{$else}
{$ifdef VER90} 'Delphi 2'{$endif}
{$ifdef VER100} 'Delphi 3'{$endif}
{$ifdef VER120} 'Delphi 4'{$endif}
{$ifdef VER130} 'Delphi 5'
{$else}
{$if defined(VER140)}
{$ifdef LINUX}'Kylix 3'{$else}'Delphi 6'{$endif}
{$elseif defined(VER150)} 'Delphi 7'
{$elseif defined(VER160)} 'Delphi 8'
{$elseif defined(VER170)} 'Delphi 2005'
{$elseif defined(VER185)} 'Delphi 2007'
{$elseif defined(VER180)} 'Delphi 2006'
{$elseif defined(VER200)} 'Delphi 2009'
{$elseif defined(VER210)} 'Delphi 2010'
{$elseif defined(VER220)} 'Delphi XE'
{$elseif defined(VER230)} 'Delphi XE2'
{$elseif defined(VER240)} 'Delphi XE3'
{$elseif defined(VER250)} 'Delphi XE4'
{$elseif defined(VER260)} 'Delphi XE5'
{$elseif defined(VER270)} 'Delphi XE6'
{$else} 'Delphi unbekannt'
{$ifend} <-- Das gab es am Anfang mal, ist im letzten Post von oldmann aber nicht mehr enthalten.
{$endif}
{$endif}
{$ifdef CPU64} +' 64 bit'{$endif}
end;
Jedenfalls lässt sich das jetzt mit Delphi 7 kompilieren.