Работа с символами. Опции

[Vardes]

Такой вопрос,как отыскать в строке последнее вхождение элемента.Есть ли для этого какие-нибудь процедуры,кроме POS(Subst,ST),который отыскивает только первое вхождение.

Сообщение отредактировано: Vardes - 14.12.2005 13:45

[klem4]

последнее вхождение символа ch в строку s

i := length(s);
find := 0;
while(i>=1) and (find=0) do
 if s[i]=ch then find := i
else dec(i);

Сообщение отредактировано: volvo - 6.11.2006 20:23