Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


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

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

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

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

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

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

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

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

 
Пример кода : Сравните различных строк
begin
  // Сравнение двух очевидно различных строк
  CompareStrings('HELLO', 'WORLD');

  // Сравнение идентичных строк
  CompareStrings('Hi 2 you', 'Hi 2 you');

  // AnsiCompareText обрабатывает верхний и нижний регистр одинаково
  CompareStrings('ABCdef', 'abcDEF');

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

// Сравнение двух строк, и показ большей
procedure TForm1.CompareStrings(const string1, string2: string);
var
  result : Integer;
begin
  // Сравнение некоторых строк
  result := AnsiCompareText(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   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия