Search the Community

Existem vários métodos em Delphi para gravar arquivos texto a partir de informações gravadas em bases de dados ou para ler arquivos texto e armazená-los em bases de dados. Esta dica apresenta dois destes métodos: o uso de TextFiles e da classe TStringList. Primeiro vamos usar o TextFiles ... TextFile é um tipo de dado pré-definido no Delphi e corresponde ao tipo Text do Turbo Pascal e do Object Pascal. Inicialmente para acessar um arquivo de texto, você precisa definir uma variável tipo TextFile, no local que você achar mais apropriado, da seguinte forma: Var F : TextFile; Exemplo do uso do TextFile, siga os passos abaixo: 1° - Abra o Delphi. 2° - Insira um botão. 3° - Altere o Caption do botão para escrever texto com TextFile. 4° - Salve o projeto com o nome de ExemploSkynet.dpr em uma pasta de sua escolha. 5° - Adicione uma variavel global logo abaixo de {$R *.dfm} da seguinte foma: var F:Textfile; 6° - No evento OnClick do button1 adicione o seguinte código: ssignfile(F,'log.txt'); if not FileExists('log.txt') Then begin Rewrite(F); Closefile(F); End Else Assignfile(F,'log.txt'); {$I-} Append(F); {$I+} If IOResult<> 0 Then Begin ShowMessage('-'); End; Write(F,'Skynet: Exemplo de como usar o TextFiles.'); Closefile(F); Agora vamos usar a Classe TStringList ... Siga os passos abaixo: 1° Abra seu Delphi. 2° Insira um botão. 3° No Evento Onclick do Button adicione o seguinte código: var Texto: TStringList; begin Texto := TStringList.Create; try Texto.Add('Linha 1'); Texto.Add('Linha 2'); Texto.SaveToFile('c:testeSkynet.txt'); finally Texto.Free; end; end;