[lmikle]

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

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

По первому:

Код:

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

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