Sites sem exesso!

Delphi

29/09/2005

Bom tenho um endereço de um site em um TEdit e gostaria de retirar os exessos após a barra por exemplo:

http://www.site.com.br/index.htm

eu gostaria que o index fosse retirado ficando assim

http://www.site.com.br/

grato

t+


[sysop]

[sysop]

Curtidas 0

Respostas

Michael

Michael

29/09/2005

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


GOSTEI 0
Rjun

Rjun

29/09/2005

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


GOSTEI 0
[sysop]

[sysop]

29/09/2005

Você teria que definir o que considerar como [b:1098bed3fe]EXCESSO[/b:1098bed3fe], já que você pode ter sites com endereços http://www.qualquercoisa.com.br/aqui/agora


o excesso é tudo que vem após a ultima barra

a dica do Michael funcionou certinho

vlw galera


GOSTEI 0
POSTAR