Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.05;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.092 c
2-1137466390
Silver__Dragon
2006-01-17 05:53
2006.02.05
Отслеживание файлов, отправленный на USB-порт


2-1137504939
mctarik
2006-01-17 16:35
2006.02.05
Трансляция тарабарского языка*


3-1133777994
Daria
2005-12-05 13:19
2006.02.05
как загрузить из .txt с разделителями "^" в .db?


2-1137687423
Kostik
2006-01-19 19:17
2006.02.05
Как в Ричедит узнать и перейти на выделеную в нем строку?


15-1137401942
Rentgen
2006-01-16 11:59
2006.02.05
поле с прокруткой как в MoveMaker ???