delphi pos с конца строки

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

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

Читайте также:  hppusg exe ошибка приложения

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

Сегодня речь пойдет о строках. Строки в Delphi, на мой взгляд не менее важны, чем числа. Если Вы решили стать программистом, то без строк никуда. Как говорится «из песни слов не выкинешь».

В этой статье мы рассмотрим то, как можно работать со строками. Изучим основные функции, разберем их на примерах. Примеры будут не сложные, но очень полезные. Также попробуем комбинировать строковые функции.

Для начала покажу как определить строку и присвоить ей значение

Разберемся теперь с функциями обработки строк:

Функция Length()

Функция Length() – возвращает количество символов в строке. Выглядит она так:

Function Length(S): Integer;

Передаем один параметр – строку, в результате получаем число символов.

В примере мы выводим сообщение с длиной строки str1.

Функция Copy()

Функция Copy() – функция возвращаем заданный отрывок строки.

function Copy ( str1 : string, Index, Count : Integer ) : string;

  • str1 – строка, из которой мы хотим извлечь часть.
  • Index – порядковый номер начального символа.
  • Count – сколько символов мы хотим извлечь.

Приведу пример и все станет на свои места

Функция Pos()

Функция Pos() – возвращает позицию одной строки в другой. Так сказать, ищет подстроку в строке. Если что-то находит, то возвращает номер символа начиная с которого началось совпадение.

function Pos ( const str2, str1 : string ) : Integer;

  • str2 – строка, которую ищем.
  • str1 – строка, в которой ищем.

Напишем пример, в котором будем искать вхождение «стр» в str1 и выведем найденное число в сообщении.

Читайте также:  absolute sampler on the fly

Процедура Delete()

Процедура Delete() – удаляет часть строки.

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

  • str1 – строка из которой удаляем символы.
  • Index – позиция с которой начинаем удалять.
  • Count – сколько символов удаляем

Процедура Insert()

Процедура Insert() – вставляет одну строку в другую, начиная с указанного символа.

procedure Insert(str2: String; var Str1: String; Index: Integer);

  • str2-страка, которую вставляем.
  • str1-строка, в которую вставляем.
  • Index – позиция, с которой начнется вставка

Эти основные функции помогут сделать со строками в delphi любые манипуляции.

Нахождение последнего вхождения подстроки в строку

  • размер шрифта уменьшить размер шрифта увеличить размер шрифта
  • Печать

Нахождение последнего вхождения подстроки в строку

Функция возвращает начало последнего вхождения подстроки FindS в строку SrcS , т.е. первое с конца. Если возвращает ноль, то подстрока не найдена. Можно использовать в текстовых редакторах при поиске текста вверх от курсора ввода.

Вариант 2:

Оцените статью
Добавить комментарий

Adblock detector