Ver Mensaje Individual
  #2  
Antiguo 22-09-2005
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.040
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Tienes varias posibilidades, una muy simple sería hacer algo así:

En la variable donde tengas la línea leída le quitas los últimos 2 caracteres

Código Delphi [-]
 cLinea := copy( cLinea, 1, length(cLinea)-2) );

También puedes recorrer todo el texto buscando esos caracteres y eliminarlos según los vas encontrando.

Código Delphi [-]
 cTexto   <- variable con el texto
 cNuevoTexto  <- variable donde irá el texto "limpio"
 
 for iX=1 to length(cTexto) do
     if not ((cTexto[iX]=#13) or (cTexto[iX]=#10)) then
         cNuevoTexto := cNuevoTexto + cTexto[iX];

Es poco eficiente, hay otras formas más "elegantes" de hacerlo, pero te puede valer.
Responder Con Cita