Alterando Arquivo Texto

18/02/2003

0

Olá pessoal,
Tenho um arquivo texto, com cinco linhas. Preciso alterar as duas ultimas linhas deste arquivo... e manter as 3 primeiras linhas. Estou fazendo assim, só qdo tento alterar da um erro.

Begin
Var
F : TextFile;
S: String;
AssignFile(f,´\\179.999.99.9\d$\Versao\versao.txt´);
Reset(f);
Readln(f,s);
Label1.Caption:= S;
Readln(f,s);
Label2.Caption:= S;
Readln(f,s);
Label3.Caption:= S; ----> Até aqui funciona
Writeln(f,´NUMERARIO =3232´);
WriteLn(f,´PACOTE= 74747´); ---> Na linha acima e nesta existem dados quero apagar a anterior e escrever essas, salvar e fechar o arquivo
Closefile(f);


Anonymous

Anonymous

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar