Delphi Не Работает Locate

В Delphi при работе со строками возможна ситуация, когда функция locate не находит нужный текст, хотя он присутствует в строке. Это может быть вызвано несколькими причинами.

Причина №1: неправильные параметры функции. Функция Locate нуждается в задании искомой строки и строки, в которой необходимо провести поиск. Также может быть указан параметр, задающий начальную позицию поиска. Проверьте правильность переданных параметров функции.

Причина №2: кодировка символов. Функция Locate целочисленная и не работает с символами Unicode, в связи с чем возникает проблема, например, с русскими буквами. Если работаете с юникодной строковой переменной, используйте функцию Move, которая переносит данные массива из одного места в другое.

Пример кода:

  procedure TForm1.Button1Click(Sender: TObject);
  var
    s: string;
    p: Integer;
  begin
    s := 'Delphi строковые операции и функции';
    p := Pos('строк', s);
    if (p > 0) then
    begin
      ShowMessage('Найдено в позиции ' + IntToStr(p));
    end
    else
    begin
      ShowMessage('Не найдено');
    end
  end;