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

[Stilet]

И чо?

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

  // как не говорят у НАС в Одессе: "А нас рать"!

[min@y™]

И чо?

А то, что операция сравнения строк типа string (цикл по массивам) и операция сравнения указателей (4 байта x32) - это таки 2 большие разницы!

И не надо мне тут! Это вам не это!

[nibufep]

Сообщение от 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;

Скопировал, вставил под тем же именем, предупреждение пропало.

А еще нужно заменить функцию StrLComp, где найти AnsiStrings.pas чтобы скопировать от туда ее?

[min@y™]

где найти AnsiStrings.pas чтобы скопировать от туда ее?

Слышь, у тебя комп-то есть? А то чот меня терзают смутные сомнения...

[Stilet]

где найти AnsiStrings.pas чтобы скопировать от туда ее?

Ты что генофонд хочешь переписать? Учти - это карается минус-минус-кармой.
И кстати такого модуля нет и быть не может, ибо строками занимается системный модуль с его менеджером строк.

[min@y™]

И кстати такого модуля нет и быть не может, ибо строками занимается системный модуль с его менеджером строк.

АААААААААААААААААаааааааааааааа!!!! !!!!!!111111111111111адынадын
У меня глюки!!! Вижу то, чего нет!!! Ааааааааааааааа.......

[Stilet]

Вижу то, чего нет!

Тебя сразу поздравлять или постепенно?

[min@y™]

Тебя сразу поздравлять или постепенно?

поздралять не надо, просто согласись.