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