paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 04:32:19 +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;
{ Gets last Item }
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 }
function Find(const s:string):TStringListItem;
{ inserts an item }
@ -1154,11 +1156,11 @@ end;
end;
function tstringList.find(const s:string):TstringListItem;
function tstringList.FindCase(const s:string):TstringListItem;
var
NewNode : tstringListItem;
begin
find:=nil;
result:=nil;
if s='' then
exit;
NewNode:=tstringListItem(FFirst);
@ -1166,7 +1168,29 @@ end;
begin
if NewNode.FPStr^=s then
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;
end;
NewNode:=tstringListItem(NewNode.Next);
@ -2301,7 +2325,10 @@ end;
end.
{
$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
Revision 1.34 2004/06/16 20:07:07 florian