PDF Listing mit SynPDF

[Hobbycoder]

Zitat von oldmann:

Procedure GetDelphiCompilerVesion?

Naja, wenn dir das beim Compilieren in einen Fehler spring, dann landest du eigentlich in der Unit, in der der Fehler aufgetreten ist (der Reiter oben, der dann aktiv ist).

Zitat von oldmann:

Ich habe den Ordner mit den heruntergeladenen Dateien einfach in den Suchpfad bei Delphi eingeben.
Ist das richtig.

Sollte reichen. Ansonsten bekommst du auch eine passende Fehlermeldung "Unit nicht gefunden" oder so ähnlich. Wenn er dir schon in Code springt, sollte er es auch finden.

[himitsu]

Zitat:

fBackgroundException := AcquireExceptionObject;

Der Teil ist aber auch falsch, so wie es die Fehlermeldung richtig nennt.
fBackgroundException := AcquireExceptionObject as Exception;

[oldmann]

Hallo,

die Fehlerkorrektur von Himitsu räumte den 1. Fehler aus.
Danke dafür.
Jetzt bleibt noch ein Fehler.
Hier ein Ausschnitt aus der Funktion 'function GetDelphiCompilerVersion: RawUTF8;'
wo der Fehler auftritt:
{$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}

Bei dem allein stehenden {Selse} steht:
Nicht abgeschlossene bedingte Direktive.

Das ist in der Unit 'SynCommons' in der Zeile 34032:

Gruss Oldmann

[Moombas]

Müsste die Logik nicht so sein (nutze das mit {} aktuell nicht):

Code:

{$ifdef VER2_7_1}+' 2.7.1'{$else}was anderes {$endif}

Dein else steht meiner Ansicht nach "alleine" da. Also bei dir:

Delphi-Quellcode:

{$ifdef VER2_6_4}+' 2.6.4'{$endif}
{$ifdef VER2_7_0}+' 2.7.0'{$endif}
{$ifdef VER2_7_1}+' 2.7.1'{$else}
  {$ifdef VER90} 'Delphi 2'{$endif}
  {$ifdef VER100} 'Delphi 3'{$endif}
{$endif}

Wie himitsu schrieb ist das bei dem kleinen Ausschnitt jedoch schwer zu beurteilen wozu dein else etc. gehören soll.

[himitsu]

Das ist nur ein Ausschnitt, von mehreren verschachtelten IF/IFDEFs, was hier ohne das Drumrum und ohne Einrückung noch schlimmer aussieht.
siehe Post #4

[oldmann]

Hallo,

damit man das Listing noch besser sehen kann noch mal mit Delphi Einrückung,
so wie es im Original auasiht:

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;

Gruss Oldmann

[Delphi.Narium]

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' <-- fehlt hier nicht ein {$endif}?
  {$endif}
{$endif}
{$ifdef CPU64}
  +' 64 bit'
{$endif}
end;