paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 15:58:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Using TStringArray from SysUtils instead of creating new types for "array of string"

Browse Source
This commit is contained in:
n7800 2024-09-13 06:47:58 +05:00 committed by Martin
parent 20929d2f06
commit 9d6b34ca0c
5 changed files with 3 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/freetype/easylazfreetype.pas
View File

@ -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;

2
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -1431,8 +1431,6 @@ type
{%region ***** Register ***** }
TStringArray = Array of string;
TGDBMIRegisterSupplier = class;
{ TGDBMIDebuggerCommandRegisterUpdate }

2
components/synedit/test/testbase.pas
View File

@ -12,8 +12,6 @@ uses
type
TStringArray = array of string;
TTestSetSelFlag = (
tssEmptyFirst,
tssSkipUndoBlock,

2
components/synedit/test/testhighlightxml.pas
View File

@ -5,7 +5,7 @@ unit TestHighlightXml;
interface
uses
testregistry, TestBase, TestHighlightFoldBase, SynHighlighterXML,
SysUtils, testregistry, TestBase, TestHighlightFoldBase, SynHighlighterXML,
SynEditHighlighterFoldBase;
type

4
test/lazutils/testlazloggercase.pas
View File

@ -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;