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

* use sametext instead of converting case

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-04-07 15:08:48 +02:00
parent 275027c162
commit 055bd2c653
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-sdo/tests/test_suite/test_xsdhelper.pas
View File

@ -164,7 +164,7 @@ begin
'isMany()'
);
alLs := sp.getType().getName();
ok := ( LowerCase(pt.getString(s_Name)) = LowerCase(sp.getType().getName()) );
ok := SameText(pt.getString(s_Name),sp.getType().getName());
alsCount := sp.getType().getAliasCount();
if ( not ok ) and ( alsCount > 0 ) then begin
tmpBuffer := LowerCase(pt.getString(s_Name));
@ -265,7 +265,7 @@ begin
'isMany()'
);
alLs := sp.getType().getName();
ok := ( LowerCase(pt.getName()) = LowerCase(sp.getDataObject(s_DataType).getString(s_Name)) );
ok := SameText( pt.getName(), sp.getDataObject(s_DataType).getString(s_Name));
alsCount := pt.getAliasCount();
if ( not ok ) and ( alsCount > 0 ) then begin
tmpBuffer := LowerCase(sp.getDataObject(s_DataType).getString(s_Name));