Sites sem exesso!

Question

Bom tenho um endere�o de um site em um TEdit e gostaria de retirar os exessos ap�s a barra por exemplo://www.site.com.br/index.htmeu gostaria que o index fosse retirado ficando assim//www.si...

Michael · Answer

exessos? :shock:

Bom, vc pode usar a fun��o [b:8804ca2bea]LastDelimiter[/b:8804ca2bea], que retorna a �ltima ocorr�ncia de um determinado caractere em uma string. Na verdade, ela n�o serve apenas para isso, mas pode ser adaptada ao seu problema. Veja:

var S, Site : string;
begin

  Site := �http://www.clubedelphi.net/index.html�;
  S    := Copy(Site, 1, LastDelimiter(�/�, Site) - 1);

end;

[]�s

Rjun · Answer

Voc� teria que definir o que considerar como [b:fb7eab1d9a]EXCESSO[/b:fb7eab1d9a], j� que voc� pode ter sites com endere�os //www.qualquercoisa.com.br/aqui/agora...

[sysop] · Answer

[quote:1098bed3fe=�Rjun�]Voc� teria que definir o que considerar como [b:1098bed3fe]EXCESSO[/b:1098bed3fe], j� que voc� pode ter sites com endere�os //www.qualquercoisa.com.br/aqui/agora[/quote:1098bed3fe]o excesso � tudo que vem ap�s a ultima barraa dica do Michael funcionou certinhovlw galera...

F�rum Sites sem exesso! #297775