Ver Mensaje Individual
  #2  
Antiguo 11-12-2010
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Se me ocurre con una funtion más o menos así:

Código Delphi [-]

function  FormateaTextoExcepcion (cCadena : string) : string; 
var 
    i, l : integer; 
begin 
    i := Pos('exception 1', cCadena); 
    l := length ('exception 1'); 
    if i > 0 then 
        Result := Copy (cCadena, i+l+1, length(cCadena)-(i+l+1)+1) 
    else 
        Result := cCadena; 
end;
Responder Con Cita