eliminar lineas de un txt.

[danytorres]

Gracias por responder jmariano, el txt lo leo de esta manera:

Code:
______________________________________________________________
Archivo.LoadFromFile('C:INVENTARIO.txt');

for I := 0 to Archivo.Count -1 do
begin
Campos.Clear;
Campos.CommaText:= Archivo[i];
Codigo:= Campos[0];
end;
______________________________________________________

[jmariano]

Ok, entonces prueba simplemente:

Código Delphi [-]
  Archivo.LoadFromFile('C:INVENTARIO.txt');

  for I := 0 to Archivo.Count -1 do
  begin
    Campos.Clear;
    
    if Archivo[i] <> '' then
    begin
      Campos.CommaText:= Archivo[i];
      Codigo:= Campos[0];
    end; 
  end;

Es, básicamente, lo mismo que te comenté pero ignorando las líneas en blanco.

[danytorres]

Gracias por responder, pero no funciona???

[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...

[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