V¡®u§ 849 Posted October 27, 2012 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; 2 ɓʀuɳѳ' ИИ#92 and ƤāƱŁѲ ƒēƦƦēƗƦā reacted to this Share this post Link to post Share on other sites
đŗaѵєη 220 Posted October 27, 2012 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ѵєη 1 JoãoManuel reacted to this Share this post Link to post Share on other sites
V¡®u§ 849 Posted October 27, 2012 Entao vo coloca fonte Google ;) Share this post Link to post Share on other sites
đŗaѵєη 220 Posted October 27, 2012 Entao vo coloca fonte Google ;) Até podes colocar "Internet" como fonte. http://cyber-gamers.org/public/style_emoticons/default/684881.gif Cumprimentos, đŗaѵєη 1 JoãoManuel reacted to this Share this post Link to post Share on other sites
V¡®u§ 849 Posted October 27, 2012 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!... Share this post Link to post Share on other sites
đŗaѵєη 220 Posted October 27, 2012 Escreves "Google" como fonte de pesquisa. http://cyber-gamers.org/public/style_emoticons/default/268839.gif Cumprimentos, đŗaѵєη 1 JoãoManuel reacted to this Share this post Link to post Share on other sites
V¡®u§ 849 Posted October 27, 2012 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 Share this post Link to post Share on other sites
đŗaѵєη 220 Posted October 27, 2012 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ѵєη 1 JoãoManuel reacted to this Share this post Link to post Share on other sites
V¡®u§ 849 Posted October 27, 2012 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 --' . Share this post Link to post Share on other sites
đŗaѵєη 220 Posted October 27, 2012 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ѵєη 1 JoãoManuel reacted to this Share this post Link to post Share on other sites
V¡®u§ 849 Posted October 27, 2012 Sem Comentários... Share this post Link to post Share on other sites