Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сравнение строк.


Страницы:   1 2 3

Riply ©   (2007-03-05 21:59:00) 

Здравствуйте !
Вопрос такой:
Есть строковая константа с которой (так много раз, аж страшно),
надо сравнивать другие строчки (not case-sensitive) и получать
результат <, = или >
Какой вариант лучше использовать ?
const
BaseStr = 'bla-bla';
if LowerCase(TestedString) < BaseStr then
......
const
BaseStr = 'BLA-BLA';
if UpperCase(TestedString) < BaseStr then
......
if CompareText(TestedString, BaseStr) < 0 then
...
P.S. Хотела найти подсказку в исходниках, но там ассемблер,
а мы с ним еще не подружились :(


Аноним   (2007-03-05 22:11:00) [41]


> (так много раз, аж страшно),

Сколько раз? Приблизительно?


> DVM ©


>  for i:= 1 to 1000 do


Надо больше брать, до миллиона


DVM   (2007-03-05 22:08:00) [42]

Сравнил ждля 1000 повторов так:

 s1:='qwerty';
 s2:='ytrewq';

 for i:= 1 to 1000 do
   begin
     //if UpperCase(s1) < s2 then begin end;     // 2 место 97 микросекунд
     //if LowerCase(s1) < s2 then begin end;     // 3 место 101 микросекунд
     if CompareText(s1, s2) < 0 then begin end; // 1 место 27 микросекунд
   end;


DVM   (2007-03-05 22:01:00) [43]


> Какой вариант лучше использовать ?

Мое мнение CompareText() или CompareString().


Страницы:   1 2 3

Наверх

Титульная страница Поиск, карта сайта Написать письмо