Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Номер строки в memo под курсором
   Категория: Текст и строки
  Компонент HotKey
   Категория: Компоненты
  Определение размера каталога
   Категория: Файловая система
  Возвести в степень
   Категория: Математика
  Компонент MainMenu
   Категория: Компоненты
  Процедуры и функции для рабты с файлами
   Категория: Файловая система
  Округление в большую сторону
   Категория: Математика
  Вставить иконки в Grid
   Категория: Компоненты
  BDE. Динамическое создание псевдонима
   Категория: Базы данных

Delphi - Справочник: AnsiCompareStr

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 AnsiCompareStr
function AnsiCompareStr ( const String1, String2 : string ) : Integer;
Функция (Unit SysUtils)
Сравнение двух строк на равенство
Описание:
Функция AnsiCompareStr сравнивает String1 и String2 на равенство.

Это современная Региональная безопасная форма CompareStr.

Все Ansi команды поддержкой многобайтовые символы.

Она возвращает следующие значения:

String1: отрицательное число
String1 = String2: 0
String1 > String2: положительное число

Сравнение не затрагивает длину оно выполняется по буквам. Но более длинная строка больше чем короткая.

Сравнение чувствительно к регистру.
Пример кода: Сравните различных строк

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;

Результат:
HELLO Hi 2 you = Hi 2 you
ABCdef = abcDEF
abc > 123
Примечание:
В Delphi:

Символы верхнего регистра > Символы строчных букв
Символы строчных букв > Числа

Многобайтовые наборы символов определеяются операционной системой. Например, Восточные версии Windows используют многобайтовые символы для поддержки их очень большого набора символов.

  << Вернуться