paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 01:12:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* stringlist.find case insensitive

Browse Source
This commit is contained in:
peter 2004-09-13 20:26:26 +00:00
parent 9b0243bccc
commit c1303f5759
1 changed files with 31 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
compiler/cclasses.pas
View File

@ -190,6 +190,8 @@ type
function GetFirst:string; function GetFirst:string;
{ Gets last Item } { Gets last Item }
function GetLast:string; function GetLast:string;
{ true if string is in the container, compare case sensitive }
function FindCase(const s:string):TStringListItem;
{ true if string is in the container } { true if string is in the container }
function Find(const s:string):TStringListItem; function Find(const s:string):TStringListItem;
{ inserts an item } { inserts an item }
@ -1154,11 +1156,11 @@ end;
end; end;
function tstringList.find(const s:string):TstringListItem; function tstringList.FindCase(const s:string):TstringListItem;
var var
NewNode : tstringListItem; NewNode : tstringListItem;
begin begin
find:=nil; result:=nil;
if s='' then if s='' then
exit; exit;
NewNode:=tstringListItem(FFirst); NewNode:=tstringListItem(FFirst);
@ -1166,7 +1168,29 @@ end;
begin begin
if NewNode.FPStr^=s then if NewNode.FPStr^=s then
begin begin
find:=NewNode; result:=NewNode;
exit;
end;
NewNode:=tstringListItem(NewNode.Next);
end;
end;
function tstringList.Find(const s:string):TstringListItem;
var
NewNode : tstringListItem;
ups : string;
begin
result:=nil;
if s='' then
exit;
ups:=upper(s);
NewNode:=tstringListItem(FFirst);
while assigned(NewNode) do
begin
if upper(NewNode.FPStr^)=ups then
begin
result:=NewNode;
exit; exit;
end; end;
NewNode:=tstringListItem(NewNode.Next); NewNode:=tstringListItem(NewNode.Next);
@ -2301,7 +2325,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.35 2004-06-20 08:55:28 florian Revision 1.36 2004-09-13 20:26:26 peter
* stringlist.find case insensitive
Revision 1.35 2004/06/20 08:55:28 florian
* logs truncated * logs truncated
Revision 1.34 2004/06/16 20:07:07 florian Revision 1.34 2004/06/16 20:07:07 florian