From f852f4d56aef020c53dda36dd33a665c31fc249e Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 20 Jan 2021 22:00:01 +0000
Subject: [PATCH] Packager: Make code more readable.

git-svn-id: trunk@64412 -
---
 packager/packageeditor.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/packager/packageeditor.pas b/packager/packageeditor.pas
index 097490f133..51308d0e4d 100644
--- a/packager/packageeditor.pas
+++ b/packager/packageeditor.pas
@@ -3161,6 +3161,7 @@ type
 var
   i: integer;
   Rec: PIDEOptionsGroupRec;
+  InstCls: TAbstractPackageFileIDEOptionsClass;
   Instance: TAbstractPackageFileIDEOptions;
   InstanceList: TFPList;
   stag: TStage;
@@ -3177,7 +3178,8 @@ begin
       Rec := IDEEditorGroups[i];
       if not PassesFilter(Rec) then
         Continue;
-      Instance := TAbstractPackageFileIDEOptions(TAbstractPackageFileIDEOptionsClass(Rec^.GroupClass).GetInstance(LazPackage, FOptionsShownOfFile));
+      InstCls := TAbstractPackageFileIDEOptionsClass(Rec^.GroupClass);
+      Instance := TAbstractPackageFileIDEOptions(InstCls.GetInstance(LazPackage, FOptionsShownOfFile));
       if (InstanceList.IndexOf(Instance)<0) and Assigned(Instance) then
       begin
         InstanceList.Add(Instance);
@@ -3203,6 +3205,7 @@ type
 var
   i: integer;
   Rec: PIDEOptionsGroupRec;
+  InstCls: TAbstractPackageFileIDEOptionsClass;
   Instance: TAbstractPackageFileIDEOptions;
   stag: TStage;
 begin
@@ -3215,7 +3218,8 @@ begin
         Rec := IDEEditorGroups[i];
         if not PassesFilter(Rec) then
           Continue;
-        Instance := TAbstractPackageFileIDEOptions(TAbstractPackageFileIDEOptionsClass(Rec^.GroupClass).GetInstance(LazPackage, FOptionsShownOfFile));
+        InstCls := TAbstractPackageFileIDEOptionsClass(Rec^.GroupClass);
+        Instance := TAbstractPackageFileIDEOptions(InstCls.GetInstance(LazPackage, FOptionsShownOfFile));
         if Assigned(Instance) then
         begin
           case stag of