Главная страницаОбратная связьКарта сайта

Получить позицию последнего вхождения подстроки в строку

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch


 { 
  Letzte Position von SubStr in S ermitteln. 
  Returns the last occurence of SubStr in S. 
}

 function LastPos(SubStr, S: string): Integer;
 var
   Found, Len, Pos: integer;
 begin
   Pos := Length(S);
   Len := Length(SubStr);
   Found := 0;
   while (Pos > 0) and (Found = 0) do
   begin
     if Copy(S, Pos, Len) = SubStr then
       Found := Pos;
     Dec(Pos);
   end;
   LastPos := Found;
 end;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Получить позицию последнего вхождения подстроки в строку", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info