Функция RightPosition. Делфи.

[maxluka]

Функция RightPosition. Делфи.

Напишите функцию RightPosition(str1, str2: string), которая получает два параметра str1 и str2 типа string и возвращает позицию начала последнего появления str2 в str1. Например, RightPosition('Миссисипи', 'си') вернет значение 6.

 

[MrSTEP]

Похожая функция есть уже в стандартном наборе, называется pos. Описание аналогично приведенному вами

 

[AlexZir]

Алексей, pos() возвращает первое включение подстроки в строку, а тут нужно анализировать последнее.

 

[MrSTEP]

Тьфу, последнее.. Невнимательность.. А в чем проблема у вас? сами пробовали что-то сделать?

 

[maxluka]

пробывал но вообще не получается((
помогите пожалуйста у кого есть время

 

[NDV]

function RightPosition(str1, str2: string): integer;
var
   n1, n2, i: integer;
   s: string;
begin
n1:=Length(str1);
n2:=Length(str2);
result:=0;
for i:=n1 downto n2 do
begin
     if str1[i]=str2[n2] then
     begin
          s:=copy(str1, i-n2+1, n2);
          if str2=s then
          begin
                Result:=i-n2+1;
                exit
          end;
     end;
end;
end;

У меня вот так получилось. Обратный цикл использовался исключительно из соображений быстродействия