paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 22:49:23 +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

9
rtl/objpas/typinfo.pp
View File

@ -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