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

+ GetPropInfo now case insensitive

Browse Source
This commit is contained in:
michael 2000-05-18 09:42:17 +00:00
parent f703a54099
commit edd14ed266
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/typinfo.pp
View File

@ -353,8 +353,10 @@ unit typinfo;
var var
hp : PTypeData; hp : PTypeData;
i : longint; i : longint;
p : string;
begin begin
P:=UpCase(PropName);
while Assigned(TypeInfo) do while Assigned(TypeInfo) do
begin begin
// skip the name // skip the name
@ -366,7 +368,7 @@ unit typinfo;
for i:=1 to hp^.PropCount do for i:=1 to hp^.PropCount do
begin begin
// found a property of that name ? // found a property of that name ?
if Result^.Name=PropName then if Upcase(Result^.Name)=P then
exit; exit;
// skip to next property // skip to next property
@ -818,7 +820,10 @@ end.
{ {
$Log$ $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 * disabled FIXED data type per default
Revision 1.37 2000/02/09 16:59:33 peter 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 Revision 1.24 1999/08/06 13:21:40 michael
* Patch from Sebastian Guenther * Patch from Sebastian Guenther
} }