Arquivo Texto

Delphi

11/05/2006

Alguem sabe como fazer para inserir uma linha no início de um arquivo texto que ja possui conteúdo.


Paty

Paty

Curtidas 0

Respostas

Massuda

Massuda

11/05/2006

O jeito mais simples é usar um TStringList...
var
  Texto: TStringList;
...
  Texto := TStringList.Create;
  try
    Texto.LoadFromFile(´seu\arquivo\texto.txt´);

    // insere uma nova primeira linha
    // a antiga primeira linha será a segunda
    Texto.Lines.Insert(0, ´Nova primeira linha´);

    // troca a primeira linha
    Texto.Lines[0] := ´Outra primeira linha´;

    Texto.SaveToFile(´seu\arquivo\texto.txt´);
  finally
    Texto.Free;
  end;
...



GOSTEI 0
Paty

Paty

11/05/2006

valeu :D


GOSTEI 0
POSTAR