[Resolvido] Agapar segunda linha de um arquivo txt

[JWdesenvolvimentos 1]

Ola Amigos do forum

 

Estou tentando desenvolver uma feramenta que faça o seguinte:

 

tenho um arquivo com varias linhas

codigo

001

002

003

004

 

quero gerar um novo arquivo txt que tenha o seguinte resultado:

 

codigo

001

 

e depois testar novamente e fica assim

codigo

002

 

 

ou seja que baseado no primeiro arquivo ele sempre poe o titulo da coluna e apaga a linha ja testada nao deixando espaço em branco entre o codigo e o numero

 

o codigo que tenho so mostra as linhas do arquivo txt:

 

 

 

procedure TForm1.Button1Click(Sender: TObject);

  var
  Arquivo: TStringList;
begin
  Arquivo := TStringList.Create;
  try
    Arquivo.LoadFromFile('c:\jw\lista.txt');
    ShowMessage('Numero de Linhas: ' + IntToStr(Arquivo.Count - 1));
  finally
    FreeAndNil(Arquivo);
  end;
end;

Alguém poderia me ajudar a implementar o codigo...Obrigado.

[FMilioni 0]

Olá! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Existe uma maneira simples de faze isto...

 

Claro, o que eu fiz foi apenas apagar a segunda linha do texto, e você pode deixar os componentes invisíveis tb. Olha só...

 

 

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('lista.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.Delete(1);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Memo1.Lines.SaveToFile('lista.txt');
end;

Pronto... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[JWdesenvolvimentos 1]

Olá! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Existe uma maneira simples de faze isto...

 

Claro, o que eu fiz foi apenas apagar a segunda linha do texto, e você pode deixar os componentes invisíveis tb. Olha só...

 

 

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('lista.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.Delete(1);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Memo1.Lines.SaveToFile('lista.txt');
end;

Pronto... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

 

 

Muito Obrigado, FMilioni seu exemplo foi tudo o que eu precisava para concluir o sistema.

[Raficcha 1]

Cara, pode fazer assim tambeim:

 

procedure deletarLinnha(arquivo: string; linha: integer);
var
    memoria: TStrings;

begin
    memoria := TStringList.Create;
    memoria.LoadFromFile(arquivo);
    memoria.Delete(linha+1);
    memoria.SaveToFile(arquivo);
end;

este é um exemplo bem simples de como se fazer isso sem usar componente escondidos