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

* Small optimization. Use SameText instead of uppercasing both strings

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-04-07 11:55:56 +02:00
parent 2406b203be
commit 4b04608a44
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/classes/reader.inc
View File

@ -710,7 +710,7 @@ end;
procedure TReader.DefineProperty(const Name: string; AReadData: TReaderProc;
WriteData: TWriterProc; HasData: Boolean);
begin
if Assigned(AReadData) and (UpperCase(Name) = UpperCase(FPropName)) then
if Assigned(AReadData) and SameText(Name,FPropName) then
begin
AReadData(Self);
SetLength(FPropName, 0);
@ -722,7 +722,7 @@ procedure TReader.DefineBinaryProperty(const Name: string; AReadData,
var
MemBuffer: TMemoryStream;
begin
if Assigned(AReadData) and (UpperCase(Name) = UpperCase(FPropName)) then
if Assigned(AReadData) and SameText(Name,FPropName) then
begin
{ Check if the next property really is a binary property}
if FDriver.NextValue <> vaBinary then