Arquivo Txt

[Guest Marcos Silva]

Pessoal, como eu faço pra adicionar o conteúdo de um edit a um arquivo txt ???

T+ galera!!!

[Corposemalma]

Adicione essa funcao ao sistema:

Se o arquivo existe ele adiciona o texto no fim, caso não exista ele cria o arquivo e adiciona o texto

var

function CriarArquivo(NomeArq,Dados: String):Boolean;

ArqLogico:TextFile;

begin

  try

  AssignFile(ArqLogico,NomeArq);

  if not FileExists(NomeArq) then

    ReWrite(ArqLogico)

  else

    Append(ArqLogico);

  Result:=True;

  except

  Result:=False;

  end;

  if Result then

  begin

    WriteLn(ArqLogico,Dados);

    CloseFile(ArqLogico);

  end;

end;

Para salvar o edit voce utiliza:

procedure TForm1.Button1Click(Sender: TObject);

begin

  CriarArquivo('NomeDoArquivo', edit1.text)

end;

Retirado do Site www.delphi.eti.br (lembre-se sempre de ver nossa sessao de links antes de postar, o link esta na minha assinatura)

========================================================

Desenvolvida por: Ricardo Scache Belardinuci - FATEC-TQ

e-mail ri-taqua@ig.com.br

========================================================

Os creditos são do cara, não?

[vicentecs]

ola p/ td...

como eu faço para um edit reseber o conteúdo de um arquivo txt ???

at+

[Guest Marcos Silva]

Vicentecs a resposta está logo acima do seu post!!

T+