forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

changed several list ancestor, TList only needed if onChange is assigned, TFPList faster.

This commit is contained in:
Basile Burg 2014-11-26 16:35:10 +01:00
parent 2f9c1adc86
commit 0807b758ea
3 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_dlang.pas
View File

@ -110,11 +110,11 @@ type
(***************************************************************************** (*****************************************************************************
* List of lexer tokens * List of lexer tokens
*) *)
TLexTokenList = class(TList) TLexTokenList = class(TFPList)
private private
function getToken(index: integer): TLexToken; function getToken(index: integer): TLexToken;
public public
procedure clear; override; procedure clear;
procedure addToken(aValue: PLexToken); procedure addToken(aValue: PLexToken);
property token[index: integer]: TLexToken read getToken; property token[index: integer]: TLexToken read getToken;
end; end;
@ -139,11 +139,11 @@ type
(***************************************************************************** (*****************************************************************************
* Error list * Error list
*) *)
TLexErrorList = class(TList) TLexErrorList = class(TFPList)
private private
function getError(index: integer): TLexError; function getError(index: integer): TLexError;
public public
procedure clear; override; procedure clear;
procedure addError(aValue: PLexError); procedure addError(aValue: PLexError);
property error[index: integer]: TLexError read getError; property error[index: integer]: TLexError read getError;
end; end;
@ -296,8 +296,7 @@ end;
procedure TLexTokenList.clear; procedure TLexTokenList.clear;
begin begin
while Count > 0 do while Count > 0 do begin
begin
Dispose( PLexToken(Items[Count-1]) ); Dispose( PLexToken(Items[Count-1]) );
Delete(Count-1); Delete(Count-1);
end; end;
@ -705,8 +704,7 @@ end;
procedure TLexErrorList.clear; procedure TLexErrorList.clear;
begin begin
while Count > 0 do while Count > 0 do begin
begin
Dispose( PLexError(Items[Count-1]) ); Dispose( PLexError(Items[Count-1]) );
Delete(Count-1); Delete(Count-1);
end; end;

2
src/ce_plugin.pas
View File

@ -145,7 +145,7 @@ type
HostDispatchToPlug: THostDispatchToPlug; HostDispatchToPlug: THostDispatchToPlug;
end; end;
TCEPlugDescriptorList = class(TList) TCEPlugDescriptorList = class(TFPList)
private private
function getPlugin(index: integer): TPlugDescriptor; function getPlugin(index: integer): TPlugDescriptor;
public public

2
src/ce_widget.pas
View File

@ -80,7 +80,7 @@ type
(** (**
* TCEWidget list. * TCEWidget list.
*) *)
TCEWidgetList = class(TList) TCEWidgetList = class(TFPList)
private private
function getWidget(index: integer): TCEWidget; function getWidget(index: integer): TCEWidget;
public public