Escrevendo Em Arquivos De Texto No Delphi

[V¡®u§ 849]

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;

[đŗaѵєη 220]

Já começavas a colocar créditos/fontes nos tópicos que realizas. http://cyber-gamers.org/public/style_emoticons/default/55158.gif

Cumprimentos,

đŗaѵєη

[V¡®u§ 849]

Entao vo coloca fonte Google ;)

[đŗaѵєη 220]

Entao vo coloca fonte Google ;)

Até podes colocar "Internet" como fonte. http://cyber-gamers.org/public/style_emoticons/default/684881.gif

Cumprimentos,

đŗaѵєη

[V¡®u§ 849]

Quando eu pego algum tutorial/Programa de site/blog eu coloco "Creditos"...

Quando so pego o codigo de pesquisa do google e a escrita eu mesmo que faço como vou colocar creditos!...

[đŗaѵєη 220]

Escreves "Google" como fonte de pesquisa. http://cyber-gamers.org/public/style_emoticons/default/268839.gif

Cumprimentos,

đŗaѵєη

[V¡®u§ 849]

Não Obrigado!.

Fique a vontade para colocar nos seus topicos Fonte/Creditos Google, quando pegar algo no motor de busca deles^^ http://cyber-gamers.org/public/style_emoticons/default/espi28.gif

[đŗaѵєη 220]

Ao mesmo tempo estás a "roubar" direitos de autor... Mas enfim, faz o que quiseres. http://cyber-gamers.org/public/style_emoticons/default/espi28.gif

Cumprimentos,

đŗaѵєη

[V¡®u§ 849]

Roubar/Plagio , se eu estivesse a pegar um software de um programador sem permição. E não a colocar os creditos dele (Isto seria um crime).

Mais nesté caso é um codigo, que se você estive a mecher no Delphi iria aprender!. So adiantei o codigo para quem não sabia fazer...

Se foce nesté caso Creditos Delphi --' .

[đŗaѵєη 220]

Roubar/Plagio , se eu estivesse a pegar um software de um programador sem permição. E não a colocar os creditos dele (Isto seria um crime).

Mais nesté caso é um codigo, que se você estive a mecher no Delphi iria aprender!. So adiantei o codigo para quem não sabia fazer...

Se foce nesté caso Creditos Delphi --' .

Não estava a falar deste tópico em particular. E essa cena de meter cores em tudo que é frase até mete pena aos olhos de qualquer um.. http://cyber-gamers.org/public/style_emoticons/default/268839.gif

Cumprimentos,

đŗaѵєη

[V¡®u§ 849]

Sem Comentários...