Code: Select all
Result := StrComp(PRVAnsiChar(Tag1),PRVAnsiChar(Tag2))=0
May be, this line must be written like this:
Code: Select all
Result := StrIComp(PChar(Tag1), PChar(Tag2)) = 0
Code: Select all
Result := StrComp(PRVAnsiChar(Tag1),PRVAnsiChar(Tag2))=0
Code: Select all
Result := StrIComp(PChar(Tag1), PChar(Tag2)) = 0