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

add TListItems.findCaption overload for simple and full lookups

This commit is contained in:
Basile Burg 2016-12-04 15:16:40 +01:00
parent 3998474470
commit 2ebcfcc4ce
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/ce_common.pas
View File

@ -13,7 +13,7 @@ uses
ExtCtrls, FileUtil, ExtCtrls, FileUtil,
{$ENDIF} {$ENDIF}
{$IFNDEF CEBUILD} {$IFNDEF CEBUILD}
forms, forms, ComCtrls,
{$ENDIF} {$ENDIF}
LazFileUtils, process, asyncprocess, ghashmap, ghashset, LCLIntf, strutils, LazFileUtils, process, asyncprocess, ghashmap, ghashset, LCLIntf, strutils,
xfpjson; xfpjson;
@ -96,6 +96,10 @@ type
function findAny(const key: TJSONStringType; out value: TJSONData): boolean; function findAny(const key: TJSONStringType; out value: TJSONData): boolean;
end; end;
TListItemsHelper = class helper for TListItems
function findCaption(const value: string; out res: TListItem): boolean; overload;
end;
(** (**
* TProcess with assign() 'overriden'. * TProcess with assign() 'overriden'.
*) *)
@ -511,6 +515,19 @@ begin
result := value.isNotNil; result := value.isNotNil;
end; end;
function TListItemsHelper.findCaption(const value: string; out res: TListItem): boolean;
var
i: integer;
begin
result := false;
for i := 0 to self.Count-1 do
begin
res := self.Item[i];
if res.Caption = value then
exit(true);
end;
end;
procedure TProcessEx.Assign(value: TPersistent); procedure TProcessEx.Assign(value: TPersistent);
var var
src: TProcess; src: TProcess;