From c6b5e2b0e64eec4d4b23fb1ad9eefadf04f1c3d1 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 8 Apr 2000 17:59:47 +0000
Subject: [PATCH] + Searching of values is now case-insensitive

---
 fcl/inc/inifiles.pp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/fcl/inc/inifiles.pp b/fcl/inc/inifiles.pp
index 4431576ef7..8dbe397343 100644
--- a/fcl/inc/inifiles.pp
+++ b/fcl/inc/inifiles.pp
@@ -276,7 +276,7 @@ begin
          Inc(index);
          while (index < FFileBuffer.Count) and not IsSection(FFileBuffer[index]) do
          begin
-            if GetName(FFileBuffer[index]) = ident then
+            if CompareText(GetName(FFileBuffer[index]),ident)=0 then
             begin
               value := GetValue(FFileBuffer[index], ident);
               if value <> '' then
@@ -484,7 +484,10 @@ end.
 
 {
   $Log$
-  Revision 1.9  2000-03-11 15:56:17  michael
+  Revision 1.10  2000-04-08 17:59:47  michael
+  + Searching of values is now case-insensitive
+
+  Revision 1.9  2000/03/11 15:56:17  michael
   + Added EscapeLinefeeds boolean property.
 
   Revision 1.8  2000/01/07 01:24:33  peter
@@ -514,4 +517,4 @@ end.
 
   Initial Release 1999/04/07 MAH
 
-}
+}
\ No newline at end of file