Delphi中的字符串比较,CompareStr

if SysUtils.CompareStr(Str,'dashan_zhang')=0 then

使用CompareStr 函数