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
AnsiCompareStr
Функция
Сравнение двух строк на равенство SysUtils unit
  function AnsiCompareStr ( const String1, String2 : string ) : Integer;
Описание
Функция AnsiCompareStr сравнивает String1 и String2 на равенство.

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

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

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

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

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

Сравнение чувствительно к регистру.
Примечания
В Delphi:

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

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

 
Пример кода : Сравните различных строк
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
 


Оплата за обучение в Kata Academy только после твоего трудоустройства в IT, начни карьеру Middle Java-разработчика



Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки? Slurm подготовили для вас особенный продукт!





форум программистов


© Форум Delphi  |  Форум Pascal   |  Блог программистов   |  Исходники Delphi   |  Автор сайта  |  Ссылки   |  Английская версия