Social Icons

^^

sábado, 15 de outubro de 2011

Escrevendo em arquivos de texto no delphi.

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:

- 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 ExemploProgmaster.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,'Progmaster: 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:\testeProgmaster.txt');
  finally
    Texto.Free;
  end;
end;


Nenhum comentário:

Postar um comentário

Popular Posts

 

Seguidores

Hora exata:

Total de visualizações de página