PDF Listing mit SynPDF

[oldmann]

Danke der Fehler ist ist damit schon mal erledigt.

Es gibt aber 2 weitere:

Delphi-Quellcode:

procedure TSynBackgroundThreadAbstract.Execute;
begin
  while not Terminated do
    case fProcessEvent.WaitFor(INFINITE) of
      wrSignaled:
        case GetPendingProcess of
        flagDestroying: begin
          fCallerEvent.SetEvent;
          break;
        end;
        flagStarted:
        try
          fBackgroundException := nil;
          try
            Process;
          except
            {$ifdef DELPHI5OROLDER}
            on E: Exception do
              fBackgroundException := Exception.CreateFmt('Redirected %s: "%s"',
                [PShortString(PPointer(PPtrInt(E)^+vmtClassName)^)^,E.Message]);
            {$else}
            [COLOR="Red"]fBackgroundException := AcquireExceptionObject;[/COLOR]
            {$endif}
          end;
        finally
          SetPendingProcess(flagFinished);
          fCallerEvent.SetEvent;
        end;
       end;
    end;
end;

Die Fehlermeldung in er roten Zeile lautet:
Inkompatiblr Typen: Exception und 'TObjekt'.

Eine weitere Fehlermeldung ist in meinem vorherigen Listing:

{$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 {Selse} steht: Nicht abgeschlossene bedingte Direktive.

Gruss Oldmann