Emerson,
Vc pode usar uma stringlist para isto:
Function Escreve_Arq(NomeArq,Texto : String ) : Boolean;
var
sArquivo : tStrings;
Begin
Try
sArquivo:=tStringList.Create;
sArquivo.LoadFromFile(NomeArq);
sArquivo.Add(string);
sArquivo.SaveToFile(NomeArq);
result:=True;
except
result:=False;
end
End;
Ex. de uso:
If Escreve_Arq('c:\Teste.txt','Nova Linha de Texto') then
ShowMessage('Arquivo alterado com sucesso !!')
else
ShowMessage('Erro ao alterar arquivo');
[ ]´s
Moacir
----- Original Message -----
From: "Emerson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, December 11, 2004 2:53 PM
Subject: [delphi-br] Acrescentar Linha Arquivo TXT
>
> Acrescentar Linha Arquivo TXT
>
>
> Tenho o seguinte arquivo: c:\estoques\Mov03041203.txt
>
> Este arquivo já contem diversas linhas de dados.
>
>
> Como faço para acrescentar uma linha com o conteudo "Aprendendo a incluir
> linha" ao final do arquivo?
>
>
> Grato
>
> Emerson Cassio
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.289 / Virus Database: 265.4.8 - Release Date: 8/12/2004
>
>
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.289 / Virus Database: 265.4.8 - Release Date: 8/12/2004
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
