这样比较也会出错？

Question

lpFileName: PWideChar;
    if string(lpFileName)<>'C:\a.txt' then begin
    showmessage( string(lpFileName)+'-C:\a.txt'  );
    end;
结果showmessage出现了“C:\a.txt-C:\a.txt”
怎么才能让它正确的比较啊？

Answer 1

lpFileName里的字符串也是'C:\a.txt'，应该是相等的两个字符串匹配"<>"也能成功？

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  lpFileName: PWideChar;
begin
  lpFileName:='C:\a.txt';
  if lpFileName <>'C:\a.txt' then
  begin
    showmessage(lpFileName+'-C:\a.txt'  );
  end;
end;我试好用