Функция Pos, поиск снизу вверх

[RIO]

Здравствуйте! Есть ли в Delphi такая функция которая может искать текст и выдавать его место в строке, как функция Pos, но только не с вверху вниз, а наоборот (снизу вверх) ? ? ? Пробовал функцию PosEx, но она также ищет сверху вниз

[mihali4]

Можно, конечно, извратиться...
Например, начинать поиск с точки, кратной длине поисковой подстроки, но с конца строки.
Т.е. вначале делаем PosEx с оффсетом = длина строки - длина подстроки.
Потом - с оффсетом = длина строки - две длины подстроки.
Потом - с оффсетом = длина строки - три длины подстроки.
И так далее.
Вот вам и получится желаемое вами "удаление гланд через задний проход"
Никак не пойму... Сегодня погода какая-то особенная, что ли? Уж больно много любителей экзотических подходов к программированию.

[RIO]

Хм Может и погода Но именно этот вариант, на мой взгляд, лучше подходит к решению моей проблемы: есть текст в мемо, нужно удалить весь текст от начала указанного слова (которое встречается первым, нахожу Pos), и до второго указанного слова (которое тоже встречается первым, но уже с конца).
Почему в этом месте не подходит Pos? Потому что второе слово в этом промежутке может встречаться много раз Можно конечно циклом пробежаться, но хочу решить проблему нестандартным способом

[_bAd_]

Из контекста мне стало видно, что функция ПозЕх() вас качественно удовлетворяет, просто крутит не в ту сторону
Так вот её текст:

function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
var
  I,X: Integer;
  Len, LenSubStr: Integer;
begin
  if Offset = 1 then
    Result := Pos(SubStr, S)
  else
  begin
    I := Offset;
    LenSubStr := Length(SubStr);
    Len := Length(S) - LenSubStr + 1;
    while I <= Len do
    begin
      if S[I] = SubStr[1] then
      begin
        X := 1;
        while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do
          Inc(X);
        if (X = LenSubStr) then
        begin
          Result := I;
          exit;
        end;
      end;
      Inc(I);
    end;
    Result := 0;
  end;
end;

Мне кажется не сложно изменить её имя и три.. или четыре цыферьки и получить требуемое
...
типа
I := Offset; заменить на I := Offset+ LenSubStr; ... ну и так далее

[RIO]

Хммм, да, вы правы! Спасибо! То, что мне и нужно было Только у меня эта функция на асме, в 2007 делфе

PS: Я про то, что не мог ее изменить А вы как раз подкинула на делфе ее, спасибо