Ver Mensaje Individual
  #6  
Antiguo 10-07-2007
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
Para empezar a hacer la prueba, crea un formulario con 2 Tedit, en el primero escribe el texto que muestras en tu pregunta (corrige Reciever por Recieved) y el segundo déjalo tal cual.

Ahora con este código verás como capturamos el nombre en cuestión.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
nIniSender:Integer;
nFinSender:Integer;
begin
nIniSender:=10;
nFinSender:= pos('[Received]',Edit1.Text);
nFinSender:= nFinSender - nIniSender;

  if nFinSender > 0 then
  Edit2.Text:=Copy(Edit1.Text,nIniSender,nFinSender);
end;

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita