[Chinvad]

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

[angvelem]

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

[Uniq!]

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

[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!

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

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

[lmikle]

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

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

По первому:

Код:

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

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