提示：ambiguous overloaded call to StrLIComp，如何修改？

[kerbcurb]

function SameText(const S1, S2: shortString): Boolean;
var
L: Integer;
begin
L := Length(S1);
Result := (L = Length(S2)) and (StrLIComp(@S1[1], @S2[1], L) = 0);
end;
编译通不过，提示：ambiguous overloaded call to StrLIComp，如何修改？

[hongqi162]

你的开发工具是那个版本，delphi7是没有问题的

[bdmh]

你是2010的，2010对StrLIComp有两个重载，参数为PWideChar，所以你需要指明传递的是哪种类型，改一下

function SameText(const S1, S2: shortString): Boolean;
var
  L: Integer;
begin
  L := Length(S1);
  Result := (L = Length(S2)) and (StrLIComp(PAnsiChar(@S1[1]), PAnsiChar(@S2[1]), L) = 0);
end;

[kerbcurb]

谢谢楼上两位，我对pascal不熟