Функція AnsiCompareStr – порівняння двох рядків на рівність

Функція AnsiCompareStr в Delphi порівняння двох рядків на рівність.

Функція AnsiCompareStr: Порівняйте різні рядки

begin
  // Порівняння двох очевидно різних рядків
  CompareStrings('HELLO', 'WORLD');

  // Порівняння ідентичних рядків
  CompareStrings('Hi 2 you', 'Hi 2 you');

  // Символи верхнього регістру слідують за малими літерами
  CompareStrings('ABC', 'abc');

  // Всі символи слідують за числами
  CompareStrings('abc', '123');
end;

// Порівняння двох рядків, і показ більшого
procedure TForm1.CompareStrings(const string1, string2: string);
var
  result : Integer;
begin
  // Порівняння рядків
  result := AnsiCompareStr(string1, string2);

  if result <0 then showmessage(string1+' < '+string2);
  if result = 0 then ShowMessage(string1+' = '+string2);
  if result > 0 then ShowMessage(string1+' > '+string2);
end;