Форум: "Начинающим";
Текущий архив: 2006.02.05;
Скачать: [xml.tar.bz2];

Вниз

pos наоборот   Найти похожие ветки 

← →
Compton's G   (2006-01-15 18:43) [0]

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

---

← →
з. танька   (2006-01-15 18:48) [1]

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

---

← →
з. танька   (2006-01-15 18:49) [2]

не, просто LastDelimiter.

---

← →
Desdechado ©   (2006-01-15 19:57) [3]

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

---

← →
Compton's G   (2006-01-15 20:11) [4]

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

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

---

← →
palva ©   (2006-01-16 00:31) [5]

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

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

---

← →
RPOS   (2006-01-16 00:57) [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;


---

← →
RPOS   (2006-01-16 14:43) [7]


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 17:49) [8]

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

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;


---

← →
umbra ©   (2006-01-16 18:02) [9]

PosEx

---

← →
begin...end ©   (2006-01-16 18:07) [10]

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

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

---

← →
umbra ©   (2006-01-16 18:13) [11]

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

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.02.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.01 c