From edd14ed266979a7ab2a0c9736e10dc24dad6c54d Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 18 May 2000 09:42:17 +0000
Subject: [PATCH] + GetPropInfo now case insensitive

---
 rtl/objpas/typinfo.pp | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/rtl/objpas/typinfo.pp b/rtl/objpas/typinfo.pp
index 85036ab65a..f00f186972 100644
--- a/rtl/objpas/typinfo.pp
+++ b/rtl/objpas/typinfo.pp
@@ -353,8 +353,10 @@ unit typinfo;
       var
          hp : PTypeData;
          i : longint;
-
+         p : string;
+         
       begin
+         P:=UpCase(PropName);
          while Assigned(TypeInfo) do
            begin
               // skip the name
@@ -366,7 +368,7 @@ unit typinfo;
               for i:=1 to hp^.PropCount do
                 begin
                    // found a property of that name ?
-                   if Result^.Name=PropName then
+                   if Upcase(Result^.Name)=P then
                      exit;
 
                    // skip to next property
@@ -818,7 +820,10 @@ end.
 
 {
   $Log$
-  Revision 1.38  2000-02-15 14:39:56  florian
+  Revision 1.39  2000-05-18 09:42:17  michael
+  + GetPropInfo now case insensitive
+
+  Revision 1.38  2000/02/15 14:39:56  florian
     * disabled FIXED data type per default
 
   Revision 1.37  2000/02/09 16:59:33  peter
@@ -866,4 +871,4 @@ end.
   Revision 1.24  1999/08/06 13:21:40  michael
   * Patch from Sebastian Guenther
 
-}
+}
\ No newline at end of file