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