[ALexandr555]

Хочу спросить как сделать лучше поиск без чувствительности к регистру.
Нужно искать и удалять некоторые слова.
я так понял аналогов pos и posEx без чувствительности нету, так как быть?
Переводить копию текста в нижний регистр и по позициям удалять в оригинале?
нужен наиболее быстрый вариант

[angvelem]

К примеру, AnsiStrIComp.

[ALexandr555]

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

[angvelem]

Да, только нужно привести к PChar.

[ALexandr555]

а то есть перебирать и сравнивать...

[angvelem]

Нет, просто привести к PChar, но можно использовать и AnsiSameText. Эта функция работает со стрингами.

[ALexandr555]

AnsiCompareText ( const S1, S2: string ): Integer;
возвращает позицию что ли тоже?

[angvelem]

Да, и она не чувствительна к регистру.

[lmikle]

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

Да, и она не чувствительна к регистру.

Ребят, справку-то читайте.
AnsiCompateText сравнивает 2 строки (AnsiString) и возвращает 0 если строки равны, -1 если первая строка меньше второй и 1, если больше.
Позицию эта функция НЕ ВОЗВРАЩАЕТ.

Если тебе надо удалять, то надо пользовать StringReplace. Там в третьем параметре можно указать, что сравнивать надо без учета регистра.

[ALexandr555]

Да, не выдает
StringReplace пробовал медленно

[ALexandr555]

Код:

Function Replace(input,rep:string): string;
var
copybook: string;
z,len: integer;
begin
 copybook:=AnsiLowerCase(input);
 z:=pos(rep,copybook);
  len:=0;
  While z<>0 do
   begin
    delete(input,z-len,length(rep));
    len:=len+length(rep);
    z:=posEx(rep,copybook,z+1);
   end;
 result:=input;
end;

вот получилось довольно быстро то что мне надо