Ansi version of StrLComp is deprecated. Please use AnsiStrings unit.

[nibufep]

Доброго дня!
Пользуюсь синапсом, при компиляции выдает предупреждение:

[dcc32 Warning] synautil.pas(1969): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit'

Добавляю в synautil.pas в uses AnsiStrings, появляются ошибки:

[dcc32 Error] synautil.pas(1969): E2251 Ambiguous overloaded call to 'StrLComp'
  System.SysUtils.pas(11363): Related method: function StrLComp(const PAnsiChar; const PAnsiChar; Cardinal): Integer;
  System.AnsiStrings.pas(3582): Related method: function StrLComp(const PAnsiChar; const PAnsiChar; Cardinal): Integer;

Как исправить?

[min@y™]

Добавляю в synautil.pas в uses AnsiStrings

не надо так делать.
начни с того, что глянь в файл synautil.pas, на строку 1969.

чо тама?

[nibufep]

Сообщение от min@y™

чо тама?

if strlcomp(APtr,#13#10'--',4)=0 then

[min@y™]

APtr: тип_какой?

strlcomp() можно заменить на более другую функцию. например на System.SysUtils.CompareText().

[nibufep]

Сообщение от min@y™

APtr: тип_какой?

APtr:PANSIChar;

[min@y™]

ещё вариант: скопипастить функцию из AnsiStrings.pas прям туда, откуда она вызывается, под другим именем на всякий случай.

function StrLComp(const Str1, Str2: PAnsiChar; MaxLen: Cardinal): Integer;
var
  I: Cardinal;
  P1, P2: PAnsiChar;
begin
  P1 := Str1;
  P2 := Str2;
  I := 0;
  while I < MaxLen do
  begin
    if (P1^ <> P2^) or (P1^ = #0) then
      Exit(Ord(P1^) - Ord(P2^));

    Inc(P1);
    Inc(P2);
    Inc(I);
  end;
  Result := 0;
end;

[Stilet]

strlcomp() можно заменить на более другую функцию.

Абсолютно согласен
И я чет не совсем понял, разве Делфи не даст сравнивать PAsnsiChar прямо в IF?

[min@y™]

И я чет не совсем понял, разве Делфи не даст сравнивать PAsnsiChar прямо в IF?

так этож указатель ёмаё

[Stilet]

var q,w:PAnsiChar;
begin
 q:='123'; w:='456';
 if q=w then Caption:='1';
end;

Не? Или я где-то нибумбум?

[min@y™]

Не? Или я где-то нибумбум?

Скомпили и запусти:

program cp_284698;

{$apptype console}
//{$optimization off}
{$optimization on}

var
  q, w: PAnsiChar;
  s: string;
begin
  q:= '123';  // указывают на одну и ту же
  w:= '123';  // область памяти (компайлер, сцуко, умный!)

  if q = w
    then writeln(' + equal!')
    else writeln(' - not equal!');

  Str(123, s);
  w:= PAnsiChar(s); // указывает на динамический кусок в куче.

  if q = w
    then writeln(' + equal!')
    else writeln(' - not equal!');

  // как говорят у ВАС в Одессе: "две большие разницы"!
  write('... just feel the difference!');
  readln;
end.