用于检查字符串的 if 语句

Question

所以我试图确定两个不同的字符串是否与

相同

 if DerobModel.ConstructionCount > 22 then
 begin
   for i := 22 to DerobModel.ConstructionCount-1 do
   begin
     ConstructionName[i] := DerobModel.Constructions[i].Name;
     ShowMessage(ConstructionName[i]);
     ShowMessage(DerobModel.HouseProperties.StringValue['NWall']);
     if ConstructionName[i]=DerobModel.HouseProperties.StringValue['NWall'] then
     begin
       ShowMessage('Hej');
       igSurf[0]:=idWallCon[i];
     end;
     LayerCount[i] := DerobModel.Constructions[i].LayerCount;
     idWallCon[i] := i+1;
   end;
 end;

两个字符串的 ShowMessage 返回相同的字符串，但不知何故它不会进入 if 语句。有什么想法吗？

Answer 1

已知字符串的= 运算符可以工作。当字符串s1 和s2 相等时，s1 = s2 评估为真。否则它评估为假。众所周知，= 运算符在所有版本的 Delphi 中都能正常工作。

得出的结论是，如果你的if 的主体没有执行，那么这两个字符串不相等。现在您知道两个字符串不相等，您可以调试程序来找出为什么您认为相等的两个事物实际上不相等。

请注意，= 的相等性测试是准确的。字母大小写很重要。空白很重要。以此类推。

Answer 2

你的字符串不一样，就这么简单。
如果你想弄清楚到底有什么不同，你可以写一个 else 块部分来详细比较字符串并告诉你到底有什么不同。

if ConstructionName[i]=DerobModel.HouseProperties.StringValue['NWall'] then
begin
  ShowMessage('Hej');
  igSurf[0]:=idWallCon[i];
end
else
begin
  if (Length(ConstructionName[i]) <> 
      Length(DerobModel.HouseProperties.StringValue['NWall'])) then
  begin
    ShowMessage('Length('+IntToStr(Length(ConstructionName[i]))+') <> Length('+
                IntToStr(Length(DerobModel.HouseProperties.StringValue['NWall']))+')');
  end
  else
  begin
    for LCharPos := 1 to Length(ConstructionName[i]) do
    begin
      if (ConstructionName[i][LCharPos] <> 
          DerobModel.HouseProperties.StringValue['NWall'][LCharPos]) then
      begin
        //Here you might need to rather show the ordinal values of the 
        //characters to see the difference if they **look** the same due 
        //to the font of the message.
        ShowMessage('Pos['+IntToStr(LCharPos)+'] "'+
                    ConstructionName[i][LCharPos]+'" <> "'+
                    DerobModel.HouseProperties.StringValue['NWall'][LCharPos]+'"');
      end;
    end;
  end;
end;

我能想到的唯一可能会意外导致“相同”字符串被报告为不同的情况是：如果它们是不同的字符串类型。例如。如果一个是 WideString 另一个是 AnsiString，那么：

• 必须进行隐式转换才能进行比较。
• 这意味着其中一个字符串将被更改。
• 此更改可能会导致两个看起来相同的字符串实际上不同。