Recursividade

[Filipe Chagas 0]

function UltimaPosicao(const SubStr, Str: String): Integer;var  UltPos: Integer;begin  Result := 0;  UltPos := Pos(SubStr, Str);  while UltPos > 0 do  begin	result := UltPos;	UltPos := PosEx(SubStr, Str, UltPos + Length(SubStr));  end;end;procedure TForm1.Button1Click(Sender: TObject);begin  showmessage(IntToStr(UltimaPosicao('A', 'BARATO')));end;

Resultado da mensagem = '4'

 

 

Esta função retorna a última posição do substring no string.

Alguém teria uma solução recursiva para este problema? :unsure:

 

 

 

 

Eis um exemplo de recursividade para cálculo de fibonacci:

 

Function Fi(t:integer):integer; Begin 	If t<=2 then Fi:=1 			else Fi := Fi(t-2)+Fi(t-1); end;

Obrigado e até mais!

[Darvene 0]

Cara, vim aqui por mais dúvida que esclarecer... heheheSei que há uma função para inverter a string (não me lembro agora - vou pesquisar e se achar posto aqui)aí você não usaria o loop e sim o Pos apenas uma vez...Enquanto isso se alguem lembrar dessa função, posta ae...Inteh!