Функция pos в delphi

Функция pos в delphi

Delphi , Синтаксис , Текст и Строки

Статья Использование PosEx взамен Pos раздела Синтаксис Текст и Строки может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2015-03-09 17:01:06 :: re:Использование PosEx взамен Pos

у меня в дельфи 7 ищет как обычная Pos.
в тексте есть 2 слова ‘строка’
PosEx(‘строка’,Memo1.Text,2) и находит
только первое слово
третий параметр я так понимаю для того чтобы найти
второе вхождение

:: 2015-12-22 20:06:46 :: re:Использование PosEx взамен Pos

// поиск слова по чату
procedure TMess_form1.search_text(ss: string; pos_s:integer=1);
var
Find: string;
I: integer;
begin
Find := AnsiLowerCase(ss);
for I := 0 to Memo2.Lines.Count — 1 do
if PosEx(AnsiLowerCase(Find), AnsiLowerCase(Memo2.Lines.Text),pos_s) 0 then
begin
Memo2.SetFocus();
Memo2.SelStart := PosEx(AnsiLowerCase(Find), AnsiLowerCase(Memo2.Lines.Text),pos_s)-1;
Memo2.SelLength := length(Find);

end;
end;
// поиск кнопка
procedure TMess_form1.Button6Click(Sender: TObject);
var ii:integer;
begin
ii:=Memo2.SelStart + Memo2.SelLength+1;
Memo2.SelStart := 0;
Memo2.SelLength :=0;

:: 2016-01-02 10:26:17 :: re:Использование PosEx взамен Pos

Ничего не понял.
Как сделать чтоб искалка искала слово — а, слово — но, или слово-предлог — в?
А не букву а, букву в, сочетание но. итд.

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

Работа со строками в Delphi

Функция Length языка Delphi

Эта функция возвращает длину строки. У нее есть только один параметр — строка, длину которой надо вернуть. Функция Length выглядит так:

function Length(S): Integer;

Пример использования функции:

В этом примере объявлены две переменные str (строка) и index (целое число). В первой строке кода в переменную str помещается строка "Привет". После этого переменной index присваивается длина строки str. Результат, записанный в пере­менную index, будет равен числу 6 — длина строки.

Читайте также:  315 Градусов в пи

Функция Сору языка Delphi

Эта функция возвращает указанный отрывок строки. Например, вам нужно по­лучить из строки "Меня зовут Михаил" символы начиная с 5-го по 10-й. Это легко сделать с помощью функции сору. У нее есть три параметра.

  • Строка, из которой нужно получить отрывок текста.
  • Начальный символ.
  • Количество нужных символов.

function Сору(S; Index, Count: Integer): string;

Пример использования функции:

Stri: =’Меня зовут Михаил ‘ ;

Str2:= copy(Stri, 5, 5);

Здесь объявлено две строковых переменных: str1 и str2. В первой строке кода мы присваиваем переменной str1строку "Меня зовут Михаил". В следующей строке происходит копирование в переменную str2 пяти символов из переменной stri, начиная с 5-го символа. Получается, что мы копируем строку с 5-го символа по 10-й. Результатом будет в str2 строка: "зовут".

Функция Delete языка Delphi

Эта функция удаляет кусок текста из указанной строки. У нее есть три параметра.

  • Строка, из которой нужно удалить отрывок текста.
  • Начальный символ, начиная с которого будут удаляться символы.
  • Количество символов для удаления. В общем виде функция выглядит так:

procedure Delete(var S: string; Index, Count:Integer);

Пример использования функции Delete:

Strl:= ‘Меня зовут Михаил’;

В этом примере мы удаляем из строки stri символы, начиная с 5-го по 10-й (пять символов, начиная с 5-й позиции). В результате в переменной str1 останется только строка "Меня Михаил".

Функция Pos языка Delphi

Эта функция ищет указанные символы в строке или, можно сказать, ищет под­строку. Если эти символы найдены, то она вернет порядковый номер, начиная с которого найдена нужная строка. У функции два параметра.

  • Строка, которую надо искать.
  • Строка, в которой надо искать.

Если подстрока не найдена, то функция вернет ноль, function Pos(Substr: string; S: string): Integer; Пример использования функции Pos:

Читайте также:  Замена текста в нескольких файлах word

Stri:=’Меня зовут Миша’;

В этом примере мы запускаем поиск строки "Миша" в строке stri. В данном случае строка "Миша" есть в строке переменной и начинается с символа 11. Ре­зультат — в переменной index будет число 11.

Функция Insert языка Delphi

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

  • Строка, которую надо вставить.
  • Строка, в которую надо вставить.
  • Позиция, куда надо вставить.

В общем виде функция выглядит так:

procedure Insert(Source: string; var S: string; Index: Integer) ;

Пример использования функции insert:

Strl:=’Меня Миша’; Insert(‘зовут’, Strl, б);

Здесь вставляется в строку strl текст "зовут", начиная с 6-го символа. Результа­том будет строка "Меня зовут Миша".

Функция Pos ( Substr: string; S: string ): Integer;

Описание
Функция находит подстроку Substr в строке S и возвращает ин-декс первого символа найденной подстроки. Если S не содержит указанную подстроку, то функция возвращает 0.

Ссылка на основную публикацию
Файлы mdi чем открыть
Если вы не смогли открыть файл двойным нажатием на него, то вам следует скачать и установить одну из программ представленных...
Украли сумку с документами что делать
В связи с угрозой распространения на территории Российской Федерации коронавирусной инфекции приостановлен личный прием граждан в судах. Смотреть как изолируются...
Ультра исо вам необходимо иметь права администратора
Очень многие пользователи, когда им нужно сделать загрузочную флешку Windows или с дистрибутивом другой операционной системы, прибегают к использованию программы...
Файлы mdx чем открыть
MDX - это формат образов дисков, который был создан разработчиками программы DAEMON Tools. Это формат был создан в результате усовершенствования...
Adblock detector