{$IFDEF UNICODE}有没有简单一点的表达方式，像C语言那样

Question

Delphi:{$IFDEF UNICODE}
Result := WideCompareStr(Str1, Str2);
{$ELSE}
Result := AnsiCompareStr(Str1, Str2);
{$ENDIF}===============================C:#ifdef UNICODE
  #define CompareStr WideCompareStr
#else
  #define CompareStr AnsiCompareStr
#endifreturn CompareStr(Str1, Str2);
如果有很多地方用到CompareStr的话，Delphi的就显得太麻烦了点。

Answer 1

关闭工程，把相应的*.tds删除。

Answer 2

fucntion CompareStr(...) ...
begin
{$IFDEF UNICODE}
  Result := WideCompareStr(Str1, Str2);
{$ELSE}
  Result := AnsiCompareStr(Str1, Str2);
{$ENDIF}
end;

Answer 3

这我ASM有什么关系，我记得Delphi好像有类似C的define功能，只是很少用，不知道有没有人知道。