Buscar

Salvar texto em arquivo txt

Código

//SalvarComo = Caminho onde vai ser salvo o arq.

procedure GravarTexto(SalvarComo, Texto:String);
var
  txt: textfile;
begin
  try
    AssignFile(txt, SalvarComo);
    Rewrite(txt, SalvarComo);
    Append(txt);
    WriteLn(txt, Texto);
  finally
    CloseFile(txt);
  end;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 26/02/10
Por: Walter Lucchesi Dias
Visualizada: 12326 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009