PDF Listing mit SynPDF

[Delphi.Narium]

Also so?

Delphi-Quellcode:

function GetDelphiCompilerVersion: RawUTF8;
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' {$endif}
  {$endif}
  {$ifdef CPU64}
    +' 64 bit'
  {$endif}
end;

Und dann fehlt ein {$endif}.

Und genau das besagt dir von oldmann beschriebene Fehlermeldung.

[himitsu]

siehe Post #4
dort waren 3x IFEND/ENDIF danach.

In diesen Code hatte ich die Zeile eingefügt.
müsste angepasst werden, falls das noch der Code aus einer uralten SynPDF-Version war.

[Delphi.Narium]

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.

[mytbo]

Das ist ein ältere SynPDF Version. Bei der Aktuellen steht am Ende:

Code:

...
{$elseif defined(VER330)}'Delphi 10.3 Rio'
{$elseif defined(VER340)}'Delphi 10.4 Next'

Vielleicht mal eine neuere Version laden.

Bis bald...
Thomas

[himitsu]

Es kann aber nicht schaden, wenn auch dort noch ein ELSE rein kommt,
mit einer "unbekannt"-Konstante oder wenigstens mit einem {$ELSE} {$MESSAGE Fatal 'Delphi-Version not supported'} ,
damit es nicht bei Version 10.5 schonwieder "unverständlich" abraucht.

[oldmann]

Hallo,

mytbo schreibt von einer neuen Version mit
...
{$elseif defined(VER330)}'Delphi 10.3 Rio'
{$elseif defined(VER340)}'Delphi 10.4 Next'

wo kann man die heruterladen ?

Gruss Oldmann

[Delphi.Narium]

SYNPDF download 1. Ergebnis

[Hobbycoder]

Zitat von oldmann:

wo kann man die heruterladen ?

Gruss Oldmann

Ich habe dir das doch in Post #6 bereits geschrieben.
Und in Post #8 hast du geantwortet:

Zitat von oldmann:

Ich habe mir die neue Version heruntergeladen.
Es kommen die gleichen 2 Fehler die ich zuletzt beschrieben habe.