paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 00:32:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ IndexOfName is case insensitive

Browse Source
This commit is contained in:
michael 2002-12-10 21:05:44 +00:00
parent a1ab52022b
commit f75fd47e00
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fcl/inc/stringl.inc
View File

@ -502,14 +502,18 @@ end;
Function TStrings.IndexOfName(const Name: string): Integer; Function TStrings.IndexOfName(const Name: string): Integer;
Var len : longint; Var
len : longint;
S : String;
begin begin
Result:=0; Result:=0;
while (Result<Count) do while (Result<Count) do
begin begin
len:=pos('=',Strings[Result])-1; S:=Strings[Result];
if (len>0) and (Name=Copy(Strings[Result],1,Len)) then exit; len:=pos('=',S)-1;
if (len>0) and (CompareText(Name,Copy(S,1,Len))=0) then
exit;
inc(result); inc(result);
end; end;
result:=-1; result:=-1;
@ -1040,7 +1044,10 @@ end;
{ {
$Log$ $Log$
Revision 1.13 2002-10-10 12:50:40 michael Revision 1.14 2002-12-10 21:05:44 michael
+ IndexOfName is case insensitive
Revision 1.13 2002/10/10 12:50:40 michael
+ Fix for handling of double quotes in getquotedstring from Luk Vandelaer (luk.vandelaer@wisa.be) + Fix for handling of double quotes in getquotedstring from Luk Vandelaer (luk.vandelaer@wisa.be)
Revision 1.12 2002/09/07 15:15:25 peter Revision 1.12 2002/09/07 15:15:25 peter