paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:39:12 +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 var
FontCollection: TCustomFreeTypeFontCollection; FontCollection: TCustomFreeTypeFontCollection;
type function StylesToArray(AStyles: string): TStringArray;
ArrayOfString = array of string;
function StylesToArray(AStyles: string): ArrayOfString;
const FreeTypeMinPointSize = 1; const FreeTypeMinPointSize = 1;
@ -453,7 +450,7 @@ begin
result.NotifyProc := ANotifyProc; result.NotifyProc := ANotifyProc;
end; end;
function StylesToArray(AStyles: string): ArrayOfString; function StylesToArray(AStyles: string): TStringArray;
var var
StartIndex, EndIndex: integer; StartIndex, EndIndex: integer;
Count: integer; Count: integer;

2
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

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

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

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

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

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

4
test/lazutils/testlazloggercase.pas
View File

@ -8,10 +8,6 @@ uses
Classes, SysUtils, fpcunit, testutils, testregistry, LazLoggerBase, LazLogger, LazClasses; Classes, SysUtils, fpcunit, testutils, testregistry, LazLoggerBase, LazLogger, LazClasses;
type type
TStringArray = array of string;
{ TTestLazLogger }
TTestLazLogger = class(TTestCase) TTestLazLogger = class(TTestCase)
protected protected
FTheLogger: TLazLoggerFile; FTheLogger: TLazLoggerFile;