| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

pos наоборот

Compton's G ©   (2006-01-15 18:43:00) 

есть в делфи какая функция, идентичная pos, но просматривающаяя строку с конца

---

umbra   (2006-01-16 18:13:00) [1]

begin...end ©   (16.01.06 18:07) [10]

да, задумался не о том. :( Действительно ни к чему. Прошу прощения!

---

begin...end   (2006-01-16 18:07:00) [2]

> umbra ©   (16.01.06 18:02) [9]

Какое отношение это имеет к сабжу?

---

umbra   (2006-01-16 18:02:00) [3]

PosEx

---

RPOS   (2006-01-16 17:49:00) [4]

Вот правильная функция:

function RPOS(CONST sample:string;s:string):INTEGER;
VAR I:Integer;
BEGIN
FOR I:=Length(s) DOWNTO 1  DO
BEGIN
  RESULT:=I;
  IF ((copy(s,I,Length(sample))=sample)) AND (Length(sample)>0) THEN  EXIT;
END;
RESULT:=0;
END;


---

RPOS   (2006-01-16 14:43:00) [5]


function RPOS(CONST sample:string;s:string):INTEGER;
VAR I,J:Integer;
BEGIN
FOR I:=Length(s) DOWNTO 1  DO
BEGIN
  RESULT:=I;
  IF (copy(s,I,Length(sample))=sample) THEN  EXIT;
END;
RESULT:=0;
END;


---

RPOS   (2006-01-16 00:57:00) [6]


function RPOS(CONST sample:string;s:string):INTEGER;
VAR I,J:Integer;
BEGIN
 FOR I:=Length(s) DOWNTO 1  DO
 BEGIN
   FOR J:=1 TO Length(sample) DO
   BEGIN
     IF s[I]=sample[J] THEN
     BEGIN
       RESULT:=I;
       IF (copy(s,I,Length(sample))=sample) THEN  EXIT;
     END;
   END;
 END;
 RESULT:=0;
END;


---

palva   (2006-01-16 00:31:00) [7]

Иногда предлагают работать с перевернутыми строками (функция Reverse), но по-моему это мазохизм. Проще найти в Интернете какой-нибудь Unit их, должно быть, много понаписано: и ламерских поделок, и добротных библиотек с ассемблером. Не все, правда, прикладывают Source, денег требуют.

> Да просто знаю что такая функция есть ...
Тогда поделитесь своими знаниями. Я, вот, такой функции в хэлпах не нашел.

---

Compton's G   (2006-01-15 20:11:00) [8]

> что, сложно самому 3 строчки написать?

Да просто знаю что такая функция есть ...

---

Desdechado   (2006-01-15 19:57:00) [9]

что, сложно самому 3 строчки написать?

---

з. танька   (2006-01-15 18:49:00) [10]

не, просто LastDelimiter.

---

з. танька   (2006-01-15 18:48:00) [11]

GetLastDelimiter или шо-то такое..

---

Наверх