Fórum Buscar Ultima Letra na String #366463

26/11/2008

0

Delphi

Segue a função abaixo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function BuscaDireita(Busca,Text : string) : integer;
{Pesquisa um caractere à direita da string,
 retornando sua posição}
var n,retorno : integer;
begin
retorno := 0;
for n := length(Text) downto 1 do
  begin
  if Copy(Text,n,1) = Busca then
  begin
  retorno := n;
  break;
  end;
  end;
Result := retorno;
end;


1º Parametro é a letra ser buscada
2º A String onde se efetuará a busca


Sistemald

Sistemald

Responder

Posts

26/11/2008

Sistemald

Algum moderador exclui este tópico, criei novo tópico ao invés de responder

desculpe.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar