From 7a65fc697f72f84c991947f3f6747457a8632599 Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 8 Jan 2023 15:46:49 +0100 Subject: [PATCH] rtl: added overload GetClass(UnitName,ClassName), implemented UnregisterClass, overload TStream.WriteComponent(Instance,WriteUnitName) --- rtl/objpas/classes/classesh.inc | 2 ++ rtl/objpas/classes/reader.inc | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/rtl/objpas/classes/classesh.inc b/rtl/objpas/classes/classesh.inc index 8e9da2c530..b9e59f983f 100644 --- a/rtl/objpas/classes/classesh.inc +++ b/rtl/objpas/classes/classesh.inc @@ -1805,6 +1805,8 @@ type TFindComponentClassExEvent = procedure(Reader: TReader; const aName, anUnitname, aClassName: string; var ComponentClass: TComponentClass) of object; + TFindComponentClassExEvent = procedure(Reader: TReader; const anUnitname, ClassName: string; + var ComponentClass: TComponentClass) of object; TCreateComponentEvent = procedure(Reader: TReader; ComponentClass: TComponentClass; var Component: TComponent) of object; diff --git a/rtl/objpas/classes/reader.inc b/rtl/objpas/classes/reader.inc index 836d40e779..c7903299a2 100644 --- a/rtl/objpas/classes/reader.inc +++ b/rtl/objpas/classes/reader.inc @@ -159,7 +159,7 @@ begin end; procedure TBinaryObjectReader.BeginComponent(var Flags: TFilerFlags; - var AChildPos: Integer; var CompClassName, CompName: String); + var AChildPos: Integer; var CompUnitName, CompClassName, CompName: String); var CompUnitName: String; begin