Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #8  
Antiguo 07-03-2014
force1758 force1758 is offline
Miembro
 
Registrado: jul 2010
Posts: 37
Poder: 0
force1758 Va por buen camino
Thumbs up

Cita:
Empezado por ecfisa Ver Mensaje
Hola force1758.

Las opciones que te dió duilioisola te tendrían que servir perfectamente... Pero para sumar otra alternativa se me ocurre que podrías hacer:
Código Delphi [-]
uses StrUtils;

function ExtractHostName(const URLStr: string): string;
var
  p1, p2: Integer;
begin
  p1:= Pos('://', URLStr);
  p2:= PosEx('/', URLStr, p1+3);
  Result:= Copy(URLStr, p1+3, p2-(p1+3));
end;

Saludos


Muchísimas gracias ecfisa , me sirvió perfectamente tu ejemplo eso era lo que estaba buscando espero que le sirva a alguien mas

Saludo y gracias
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Obtener posicion del cursor en TEdit jandro Varios 2 25-01-2010 17:21:26
Delphi-For-PHP: Modificar el valor de un tEdit maro PHP 4 29-09-2007 20:25:21
No permitir la escritura de ciertos caracteres en un tedit en Delphi. bellota Varios 3 08-06-2006 21:10:16
Obtener el dato de un TEdit chileno OOP 7 11-05-2006 00:55:49
Pasar el valor de un TEdit dentro de un StringGrid a otro TEdit que está fuera atirado Varios 4 11-09-2004 19:13:48


La franja horaria es GMT +2. Ahora son las 16:01:50.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi