eliminar lineas de un txt.

[roman]

¿No será que las líneas en blanco no están tan blancas? En lugar de poner

Código Delphi [-]
if Archivo[i] <> '' then

intenta con

Código Delphi [-]
if Trim(Archivo[i]) <> '' then

// Saludos

[danytorres]

Gracias por responder roman, pero me da error: incompatible string and boolean ?

[danytorres]

ya logre correr el trim, pero igual me da error al leer por la linea en blanco

[[maeyanes]]

Prueba con:

Código Delphi [-]
if Pos(',', Archivo[i]) > 0 then
begin
  Campos.CommaText:= Archivo[i];
  //...

Saludos...

[jmariano]

Si aplicando la solución de maeyanes te sigue dando error, entonces, comprueba que la línea en blanco no sea una línea de tipo: ,,,,,,,,, (es decir, donde no hubo registros o si todos fueron valores nulos que no haya una línea con solo el delimitador de campo, en este caso ",").

[danytorres]

Disculpen por no decir el error: EstringListError 'List index out of bounds (0)',

Nose como corregirlo.

[jmariano]

Está claro que el error debe de estar en la variable "Campos" que no tiene elementos. Prueba lo siguiente:

Código Delphi [-]
    ... 
    Campos.CommaText:= Archivo[i];
 
    if Campos.Count > 0 then
      Codigo:= Campos[0];
    ...

[dec]

Hola,

Estoy con roman. Sobre la instrucción:

Código Delphi [-]
 Strings[i] = ''

... pulsa la tecla "F5", esto es, crea un "punto de ruptura" para que el programa se detenga en ese punto al ejecutarse: eso te dará pie a averiguar (simplemente poniendo el cursor sobre la variable que precises) qué contienen las líneas del archivo, y así hacerte idea de qué está pasando y, en todo caso, qué puedes hacer para solucionar el problema.

[dec]

Hola,

Esto probablemente ocurra por andar averiguando (*) el error... lo digo porque mi anterior mensaje iba destinado a la solución de otro error y no el que mencionas. ¡Pero también puede servirte! Puedes averiguar el valor de la variable contador a cada paso por el bucle, y ver también qué está pasando en el mismo.

En todo caso, creo que lo mejor sería que copiaras aquí el código al completo del bucle que te está dando problemas: probablemente a partir de éste alguien sabrá darte una solución al problema en cuestión.

(*) Otrosí, nadie me obligaba a hacer de adivino.

[roman]

Empezado por danytorres

ya logre correr el trim, pero igual me da error al leer por la linea en blanco

Entonces creo que el archivo txt te está dando otros problemas además de las líneas en blanco. Haz un debug para ver qué contiene la línea del archivo cuando te marca error. Por cierto que hasta ahora no nos has dicho cuál es ese error.

// Saludos