|
@@ -453,6 +453,7 @@ var
|
|
E: Exception;
|
|
E: Exception;
|
|
HS: PResStringRec;
|
|
HS: PResStringRec;
|
|
Entry: PExceptMapEntry;
|
|
Entry: PExceptMapEntry;
|
|
|
|
+ CastFrom,CastTo : ShortString;
|
|
begin
|
|
begin
|
|
Case Errno of
|
|
Case Errno of
|
|
1,203 : E:=OutOfMemory;
|
|
1,203 : E:=OutOfMemory;
|
|
@@ -460,7 +461,14 @@ begin
|
|
else
|
|
else
|
|
Entry:=FindExceptMapEntry(ErrNo);
|
|
Entry:=FindExceptMapEntry(ErrNo);
|
|
if Assigned(Entry) then
|
|
if Assigned(Entry) then
|
|
- E:=Entry^.cls.CreateRes(Entry^.msg)
|
|
|
|
|
|
+ begin
|
|
|
|
+ E:=Entry^.cls.CreateRes(Entry^.msg);
|
|
|
|
+ if (ErrNo=219) then
|
|
|
|
+ begin
|
|
|
|
+ TObject.GetLastCastErrorInfo(CastFrom,CastTo);
|
|
|
|
+ E.Message:=E.Message+Format(SInstanceIsNotA,[CastFrom,CastTo]);
|
|
|
|
+ end;
|
|
|
|
+ end
|
|
else
|
|
else
|
|
begin
|
|
begin
|
|
HS:=nil;
|
|
HS:=nil;
|