[Chinvad]

Здравствуйте! Мне нужно организовать такой поиск, где во введенной строке взаимозаменялись следующие виды символов:
-заглавная и строчная буква (Слово = слово, СЛОВО = слово)
-буквы с аналогичным написанием в латинице и кириллице.
Не то чтобы мне хотелось просить кого-то из форумчан писать с нуля этот код... просто думается, что он вполне может оказаться какой-нибудь готовой процедуркой, выложенной в сети, ибо вероятно многие сталкиваются с этой проблемой. Если у кого-то есть такой поиск, поделитесь, пожалуйста )

[angvelem]

Для первого случая достаточно AnsuUpperCase/AnsiLowerCase, со вторым сложнее.

[Uniq!]

Всё ж просто. Вот ссылка

[lmikle]

Сообщение от Chinvad

Здравствуйте! Мне нужно организовать такой поиск, где во введенной строке взаимозаменялись следующие виды символов:
-заглавная и строчная буква (Слово = слово, СЛОВО = слово)
-буквы с аналогичным написанием в латинице и кириллице.
Не то чтобы мне хотелось просить кого-то из форумчан писать с нуля этот код... просто думается, что он вполне может оказаться какой-нибудь готовой процедуркой, выложенной в сети, ибо вероятно многие сталкиваются с этой проблемой. Если у кого-то есть такой поиск, поделитесь, пожалуйста )

По первому:

Код:

function FindSubString(Substr : String; Str : String) : Boolean;
begin
  Result := Pos(AnsiUpperCase(Substr),AnsiUpperCase(Str)) > 0;
end;

По второму - гораздо сложнее. Там надо писать довольно объемный код. Не сказал бы, что очень сложный, но покумекать придется.

[angvelem]

Сообщение от Uniq!

Всё ж просто.

Ишь размечтался. Мало того что, самое простое, проверить подстановку одинаковых по написанию символов, сложнее другое - нет единого правила транскрипции сиволов "ч", "ш" и подобных.

[lmikle]

Сообщение от angvelem

Ишь размечтался. Мало того что, самое простое, проверить подстановку одинаковых по написанию символов, сложнее другое - нет единого правила транскрипции сиволов "ч", "ш" и подобных.

а как я понимаю, это и не требуется. Необходимо только проверить те символы, начертание которых одинаково в обоих языках. но все-равно придется идти посимвольно и сравнивать.

[angvelem]

Да, стандартное табличное сравнение.

[Uniq!]

Сообщение от angvelem

Ишь размечтался.

Не усложняйте

[Страдалецъ]

Код:

Const
 Similar: record Rus,Lat: String[5]; end = (Rus:'аоерс';Lat:'aoepc');
begin
 for i := 1 to 5
 do S := StringReplace(S,Similar.Lat[i],Similar.Rus[i],[rfReplaceAll]);
end;

[angvelem]

Сообщение от Uniq!

Не усложняйте

Усложняю не я, а пользователи, которые могут ввести в поисковую строку всё что угодно.

[Страдалецъ]

ну если уж вы хотите облегчить жизнь пользователю, тогда вам придется и текст в ошибочной раскладке обрабатывать.

[M.A.D.M.A.N.]

Более детально опишите проблему.

[Chinvad]

Всем спасибо за внимание к проблеме ) А проблема, если уж совсем конкретизировать, в следующем. Например, в магазине вводят приход краски "10P соколор". При этом продавец может ввести и "10P Соколор" и много как еще (я вообще не удивилась бы, если соколор пишется по английски в накладных), причем "Р" может быть как в русской раскладке, так и в английской. А по базе ТМЦ нужно организовать поиск. И поиском пользуются не всегда те, кто как попало вводит данные.

[angvelem]

Для данного случая достаточно составить таблицу соответствий букв с одинаковым написанием

A = А
C = С
...

обработать введённые данные через эту таблицу, а затем уже искать.

[Страдалецъ]

Эээээ.... А я чуть ранее разве уже не дал код для этого?