Сравнение строк - Общие вопросы Delphi

HOMER · 03.01.2008, 15:19

С НАСТУПИВШИМ ВСёХ!!!!!!
И я опять за помощью. Надобно сравнить две строки, но чтоб всемогущий DELPHI не обращал внимание на буквенный регистр. На пример ‘ЗАЛИПУКА’ и ‘залИпУка’ Delphi должен сказать, что строки одинаковые. Вроде функция есть, но я найти не могу.

Alar · 03.01.2008, 15:25

Цитата:

Цитата:Сообщение от LeoN
когда я пишу цикл открыть файл
If (raz='.gtp') or (raz='.GTP') or (raz='.ptb') or (raz='.PTB') or (raz='.gp3') or (raz='.GP3') then
ShellExecute(Handle,'open',PChar(Fo rm1.FileListBox 1.FileName),nil,nil,SW_SHOWNORMAL);
Он мне открывает нужные но что если будет не GP3 а Gp3?как сделать не восприимчивость к регистру?

If ((UpperCase(raz)='.GTP') or (UpperCase(raz)='.PTB') or (UpperCase(raz)='.GP3')) then

http://www.programmersforum.ru/showthread.php?t=2701

и

Цитата:

Функция UpperCase создает копию MixedString со всеми символами преобразованными в верхний регистр.

Эта функция является устаревшей, используйте вместо неё AnsiUpperCase, которая принимает во внимание многобайтовые строки, и символы с диакритическим знаком.

http://delphibasics.ru/UpperCase.php

JTG · 03.01.2008, 16:38

Можно ещё через API

Код:

If lstrcmpi(pchar('stroka1'), pchar('StROKa1')) = 0 
then ShowMessage('Строки одинаковые')

Думаю должно работать, не проверял

Ins · 03.01.2008, 16:46

AnsiCompareText сравнивает строки без учета регистра:

Код:

if AnsiCompareText('пРивЕт','привет') = 0 then
  ShowMessage('Равны')
else
  ShowMessage('Не равны');

Alar · 03.01.2008, 18:08

Ins, совсем забыл

Цитата:

Функция AnsiCompareStr сравнивает String1 и String2 на равенство, игнорируя регистр.

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

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

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

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

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

http://delphibasics.ru/AnsiCompareText.php

Ins · 03.01.2008, 18:36

Alar, в вашей ссылке все напутано, то пишут AnsiCompareText, то AnsiCompareStr.

Цитата:

Функция AnsiCompareStr сравнивает String1 и String2 на равенство, игнорируя регистр.

Вот это как раз и неверно, AnsiCompareStr учитывает регистр, а AnsiCompareText - игнорирует. Лучше по стандартной справке описание смотреть.

Alar · 03.01.2008, 18:39

http://delphibasics.ru/AnsiCompareStr.php -
возможно, положил топик в закладки, позже исправлю.

На сайте есть даже частично русифицированная справка, только не все ее читают

HOMER · 04.01.2008, 05:53

Спасиб... Всем)) AnsiCompareText-попёрло!!!!

03.01.2008, 15:19	#1
HOMER Регистрация: 14.12.2007 Сообщений: 5	Сравнение строк С НАСТУПИВШИМ ВСёХ!!!!!! И я опять за помощью. Надобно сравнить две строки, но чтоб всемогущий DELPHI не обращал внимание на буквенный регистр. На пример ‘ЗАЛИПУКА’ и ‘залИпУка’ Delphi должен сказать, что строки одинаковые. Вроде функция есть, но я найти не могу.

03.01.2008, 16:38	#3
JTG я получил эту роль Старожил Регистрация: 25.05.2007 Сообщений: 3,694	Можно ещё через API Код: `If lstrcmpi(pchar('stroka1'), pchar('StROKa1')) = 0 then ShowMessage('Строки одинаковые')` Думаю должно работать, не проверял пыщь

03.01.2008, 16:46	#4
Ins Форумчанин Регистрация: 29.12.2007 Сообщений: 137	AnsiCompareText сравнивает строки без учета регистра: Код: `if AnsiCompareText('пРивЕт','привет') = 0 then ShowMessage('Равны') else ShowMessage('Не равны');`

03.01.2008, 18:39	#7
Alar Александр Администратор Регистрация: 28.10.2006 Сообщений: 17,630	http://delphibasics.ru/AnsiCompareStr.php - возможно, положил топик в закладки, позже исправлю. На сайте есть даже частично русифицированная справка, только не все ее читают Купить рекламу на форуме за 42 тыс руб за месяц размещения

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
сравнение дат	Geddar	Общие вопросы Delphi	2	04.06.2008 19:09
Сравнение строк	Elm0	Паскаль, Turbo Pascal, PascalABC.NET	2	02.06.2008 09:31
нужна помощь, сравнение строк в Си 3.1	feranic	Помощь студентам	5	24.04.2008 17:57
Excel max 256 строк VS user надо 300 строк	Exo	Microsoft Office Excel	3	10.01.2008 17:14
Сравнение 2-х файлов	asale	Microsoft Office Excel	17	03.06.2007 15:58

04.01.2008, 05:53	#8
HOMER Регистрация: 14.12.2007 Сообщений: 5	Спасиб... Всем)) AnsiCompareText-попёрло!!!!