From 9d6b34ca0c313eac1e5057e972c1926ca669a24f Mon Sep 17 00:00:00 2001
From: n7800 <14154601-n7800@users.noreply.gitlab.com>
Date: Fri, 13 Sep 2024 06:47:58 +0500
Subject: [PATCH] Using TStringArray from SysUtils instead of creating new
 types for "array of string"

---
 components/freetype/easylazfreetype.pas      | 7 ++-----
 components/lazdebuggergdbmi/gdbmidebugger.pp | 2 --
 components/synedit/test/testbase.pas         | 2 --
 components/synedit/test/testhighlightxml.pas | 2 +-
 test/lazutils/testlazloggercase.pas          | 4 ----
 5 files changed, 3 insertions(+), 14 deletions(-)

diff --git a/components/freetype/easylazfreetype.pas b/components/freetype/easylazfreetype.pas
index 99db656f6a..91eb9202e6 100644
--- a/components/freetype/easylazfreetype.pas
+++ b/components/freetype/easylazfreetype.pas
@@ -428,10 +428,7 @@ type
 var
   FontCollection: TCustomFreeTypeFontCollection;
 
-type
-  ArrayOfString = array of string;
-
-function StylesToArray(AStyles: string): ArrayOfString;
+function StylesToArray(AStyles: string): TStringArray;
 
 const FreeTypeMinPointSize = 1;
 
@@ -453,7 +450,7 @@ begin
   result.NotifyProc := ANotifyProc;
 end;
 
-function StylesToArray(AStyles: string): ArrayOfString;
+function StylesToArray(AStyles: string): TStringArray;
 var
   StartIndex, EndIndex: integer;
   Count: integer;
diff --git a/components/lazdebuggergdbmi/gdbmidebugger.pp b/components/lazdebuggergdbmi/gdbmidebugger.pp
index 485d4509f6..f89a1577bf 100644
--- a/components/lazdebuggergdbmi/gdbmidebugger.pp
+++ b/components/lazdebuggergdbmi/gdbmidebugger.pp
@@ -1431,8 +1431,6 @@ type
 
   {%region      *****  Register  *****   }
 
-  TStringArray = Array of string;
-
   TGDBMIRegisterSupplier = class;
 
   { TGDBMIDebuggerCommandRegisterUpdate }
diff --git a/components/synedit/test/testbase.pas b/components/synedit/test/testbase.pas
index b8ce87d45f..34813c36b3 100644
--- a/components/synedit/test/testbase.pas
+++ b/components/synedit/test/testbase.pas
@@ -12,8 +12,6 @@ uses
 
 type
 
-  TStringArray = array of string;
-
   TTestSetSelFlag = (
     tssEmptyFirst,
     tssSkipUndoBlock,
diff --git a/components/synedit/test/testhighlightxml.pas b/components/synedit/test/testhighlightxml.pas
index b2495d8331..c86313764b 100644
--- a/components/synedit/test/testhighlightxml.pas
+++ b/components/synedit/test/testhighlightxml.pas
@@ -5,7 +5,7 @@ unit TestHighlightXml;
 interface
 
 uses
-  testregistry, TestBase, TestHighlightFoldBase, SynHighlighterXML,
+  SysUtils, testregistry, TestBase, TestHighlightFoldBase, SynHighlighterXML,
   SynEditHighlighterFoldBase;
 
 type
diff --git a/test/lazutils/testlazloggercase.pas b/test/lazutils/testlazloggercase.pas
index 73801afcfd..89064a099e 100644
--- a/test/lazutils/testlazloggercase.pas
+++ b/test/lazutils/testlazloggercase.pas
@@ -8,10 +8,6 @@ uses
   Classes, SysUtils, fpcunit, testutils, testregistry, LazLoggerBase, LazLogger, LazClasses;
 
 type
-  TStringArray = array of string;
-
-  { TTestLazLogger }
-
   TTestLazLogger = class(TTestCase)
   protected
     FTheLogger: TLazLoggerFile;