Текущий архив: 2013.03.22;
Скачать: CL | DM;
Вниз
сравнение строк Найти похожие ветки
← →
Handler (2012-06-11 11:15) [0]S1 := "Led/ Жк телевизор BBK LED1955DT";
S2 := "Led/ ЖК телевизор BBK LED1955DT";
ShowMessage(BoolToStr(SameText(S1, S2)));
Результат сравнения - False. Почему? Сравнение ведь происходит без учета регистра.
← →
Anatoly Podgoretsky © (2012-06-11 11:22) [1]> Handler (11.06.2012 11:15:00) [0]
А может с учетом, проверь измени букву <К>
← →
Anatoly Podgoretsky © (2012-06-11 11:23) [2]> Handler (11.06.2012 11:15:00) [0]
Кроме того как ты различаешь - где пробел, а где скажем табуляция или другой
непечатный символ, например на разрывный пробел.
Ты что расчитываешь, что мы за тебя сделаем отладку?
← →
Handler (2012-06-11 11:26) [3]Почему-то при сравнении SameText, CompareText получается, что строки не равны, а если использовать ANSICompareText - равны
procedure TForm1.FormCreate(Sender: TObject);
var
S1, S2: string;
SL: TStrings;
begin
S1 := "Led/ Жк телевизор BBK LED1955DT";
S2 := "Led/ ЖК телевизор BBK LED1955DT";
ShowMessage(BoolToStr(S1 <> S2, True)); // S1 <> S2
SL := TStringList.Create;
try
SL.Add(S1);
ShowMessage(IntToStr(SL.IndexOf(S2))); // S1 = S2
finally
SL.Free;
end;
end;
← →
sniknik © (2012-06-11 11:31) [4]различие в русских буквах а функция используется без учета локали, т.е. либо английской части буквы увеличивай, а русские не трожь, либо функцию меняй на AnsiSameText.
← →
Sha © (2012-06-11 11:32) [5]Попробуй в среде Delphi навести курсор на имена этих функций
(SameText, CompareText, ANSICompareText) и нажать кнопку F1.
Ответ получишь раньше, чем за 11 минут.
Страницы: 1 вся ветка
Текущий архив: 2013.03.22;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.052 c
