[Resolvido] Link

[orc 0]

tenho um link do arquivo xml que baixo ele vem assim http://redir.folha.com.br/redir/online/fol...92u336621.shtml só que preciso salvar este link sem este redirecionamento que termina ali no asterisco e o que tenho que salvar é o que vem depois do link , alguem ai tem uma idéia do que posso fazer

[Hugo Slepicka 0]

Var teste, url : string;url := [url="http://redir.folha.com.br/redir/online/folha/emcimadahora/rss091/*http://www1.folha.uol.com.br/folha/esporte/ult92u336621.shtml"]'http://redir.folha.com.br/redir/online/folha/emcimadahora/rss091/*http://www1.folha.uol.com.br/folha/esporte/ult92u336621.shtml[/url]'teste := Copy(url,1,Pos('*',url)-1);showmessage(teste);

[orc 0]

Var teste, url : string;url := [url="http://redir.folha.com.br/redir/online/folha/emcimadahora/rss091/*http://www1.folha.uol.com.br/folha/esporte/ult92u336621.shtml"]'http://redir.folha.com.br/redir/online/folha/emcimadahora/rss091/*http://www1.folha.uol.com.br/folha/esporte/ult92u336621.shtml[/url]'teste := Copy(url,1,Pos('*',url)-1);showmessage(teste);

funciono não da um monte de erro

[Hugo Slepicka 0]

tente assim:

 

procedure TForm1.FormCreate(Sender: TObject);var texto, url : string;begin  url := 'http://redir.folha.com.br/redir/online/folha/emcimadahora/rss091/*http://www1.folha.uol.com.br/folha/esporte/ult92u336621.shtml';  texto := Copy(url,1,Pos('*',url)-1);  Showmessage(texto);end;

testei aqui e funcionou...

 

 

flw aew http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[orc 0]

tente assim:

procedure TForm1.FormCreate(Sender: TObject);var texto, url : string;begin  url := 'http://redir.folha.com.br/redir/online/folha/emcimadahora/rss091/*http://www1.folha.uol.com.br/folha/esporte/ult92u336621.shtml';  texto := Copy(url,1,Pos('*',url)-1);  Showmessage(texto);end;

testei aqui e funcionou...flw aew http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Hugo perdão pelo post mau escrito na verdade eu preciso do que vem depois do asterisco

[Hugo Slepicka 0]

procedure TForm1.FormCreate(Sender: TObject);var texto, url : string;Begin  url := 'http://redir.folha.com.br/redir/online/folha/emcimadahora/rss091/*http://www1.folha.uol.com.br/folha/esporte/ult92u336621.shtml';  texto := Copy(url,Pos('*',url)+1,Length(URL));  Showmessage(texto);end;

Tenta assim... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[orc 0]

procedure TForm1.FormCreate(Sender: TObject);var texto, url : string;Begin  url := 'http://redir.folha.com.br/redir/online/folha/emcimadahora/rss091/*http://www1.folha.uol.com.br/folha/esporte/ult92u336621.shtml';  texto := Copy(url,Pos('*',url)+1,Length(URL));  Showmessage(texto);end;

Tenta assim... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

VALEU FUNCIONO REDONDINHA OBRIGADO PELA FORÇA http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif