Форум: "Начинающим";
Текущий архив: 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.011 c