Ver Mensaje Individual
  #2  
Antiguo 27-03-2007
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Reputación: 24
maeyanes Va por buen camino
Hola...

Puedes usar las funciones Pos, y Delete que tiene Delphi... algo así:

Código Delphi [-]
Datos := ':InfoServidor: Textro cualquiera';
if Pos(':Info', Datos) > 0 then
begin
  // Como ya se sabe que siempre inicia con :Info la cadena se puede hacer algo como:
  // Datos será ahora Servidor: Texto cualquiera'
  Delete(Datos, 1, 5); 
  // Aquí eliminamos todo hasta la aparición de : en la cadena, quedando 
  // Datos como ' Texto cualquiera'
  Delete(Datos, 1, Pos(':', Datos))
  // Lo que quieras hacer con Datos
end

Espero que esto te sirva para darte una idea...



Saludos...
Responder Con Cita