CompareText(A, B : String) : Integer
Сравнить две строки без учета регистра

Функция CompareText сравнивает строки A и B без учета регистра.

Если A=B, то возвращаемое значение 0.

Если A<B, то возвращаемое значение -1.

Если A>B, то возвращаемое значение 1.

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

A > B	CompareText(A, B) > 0
A < B	CompareText(A, B) < 0
A = B	CompareText(A, B) = 0
A <> B	CompareText(A, B) <> 0
A <= B	CompareText(A, B) <= 0
A >= B	CompareText(A, B) >= 0

Пример:

Procedure OnCreate;
Begin
  If CompareText('Привет тебе', 'Привет тебе') = 0 Then Warning('Привет тебе = Привет тебе');
  If CompareText('ПРИВЕТ', 'мир') > 0 Then Warning('ПРИВЕТ > мир');
  If CompareText('привет', 'МИР') > 0 Then Warning('привет > МИР');  
  If CompareText('ЯБЛоко', 'яблОКО') = 0 Then Warning('ЯБЛоко = яблОКО');
End;

© RTIT