Duas coisas: 1) Crie um assunto novo pra tratar de sua "dúvida" e não dê continuidade em um thread já querendo resolver uma dúvida que nada tem haver; 2) Veja a última edição da revista ClubeDelphi. Ela tem um artigo dedicado só com dicas pra quem quer gerar gráficos com Delphi. Sds.
To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Thu, 6 Dec 2007 18:45:23 -0200Subject: RES: Res: [delphi-br] Ler última linha de um arquivo de texto alguem tem algum material sobre gráficos em delphi .... to apanhando ummonte ... Cícero FernandesEng. EletricistaEng. de Segurança( (0xx 47) 3521 2988 / 9191-6226* HYPERLINK"blocked::mailto:[EMAIL PROTECTED]"[EMAIL PROTECTED] "blocked::http://www.fiosecabos.ind.br/"www.fiosecabos.ind.brP Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIOAMBIENTE!_____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Emnome de Rubem Nascimento da RochaEnviada em: quinta-feira, 6 de dezembro de 2007 16:10Para: [EMAIL PROTECTED]: RE: Res: [delphi-br] Ler última linha de um arquivo de textoPrioridade: AltaComo sugestão, antes de ler um arquivo texto muito grande em um TStringList,configure o tamanho do mesmo para comportar o tamanho do arquivo. Apropriedade Capacity do TStringList serve pra isso. Exemplo:function UltimaLinhaArqTexto-(const ArqTexto: String): AnsiString;varlFile: File;lSize: Integer;beginResult := '';AssignFile(lFile, ArqTexto);tryReset(lFile, 1);lSize := FileSize(lFile)-;Close(lFile)-;exceptExit;end;with TStringList.-Create dotryLoadFromFile(-ArqTexto)-;Result := Strings[Count - 1];finallyFree;end;end;Veja se a dica funciona.Sds.To: HYPERLINK"mailto:delphi-br%40yahoogrupos.com.brFrom"[EMAIL PROTECTED]: HYPERLINK"mailto:dorensbach_dpr%40yahoo.com.brDate"[EMAIL PROTECTED]:Thu, 6 Dec 2007 09:23:15 -0300Subject: Re: Res: [delphi-br] Ler última linhade um arquivo de textoAndre Luis Silveria escreveu:> joga ele num stringlist, e posiciona no finaldo stringlist.>-> ----- Mensagem original ----> De: Paulo Daniel Dorensbach<HYPERLINK"mailto:dorensbach_dpr%40yahoo.com.br"[EMAIL PROTECTED]>> Tenhoum arquivo de texto que é uma espécie de LOG e é mais ou menos assim:>>> 105/12/2007 20:55 Backup.2007- 12-05.20: 55:23> 2 06/12/2007 20:59Backup.2007- 12-06.20: 59:43> 3 08/12/2007 21:05 Backup.2007- 12-08.21:05:12> 4 09/12/2007 19:35 Backup.2007- 12-09.19: 35:09>> E assim por diante,a cada Backup uma nova linha é inserida.> Como faço para ler a última linhado arquivo?> E se o arquivo estiver com muitas linhas não vai ficar pesadopra carregar num StringList?E não existe uma limitação para o número delinhas na StringList?---+-------------------------------------------------------+Paulo DanielHYPERLINK"Dorensbachhttp://geocities.yahoo.com.br/dorensbachUsuario"Dorensbachhttp:-//geocities.-yahoo.com.-br/dorensbachUsu-ario GNU/Linux #363631 - HYPERLINK"http://counter.li.org/www.velocidadejusta.com.br/rfc.htmBy"http://counter.-li.org/www.-velocidadejusta.-com.br/rfc.-htmBy MozillaThunderbirdwww.-mozilla.org.-br+-------------------------------------------------------+-_________-_________-_________-_________-_________-_________-_Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja asnovidades. HYPERLINK"http://br.yahoo.com/mailbeta/tudonovo/"http://br.yahoo.-com/mailbeta/-tudonovo/ ____________-_________-_________-_________-_________-_________-_Receba as últimas notícias do Brasil e do mundo direto no seu Messenger comAlertas MSN! É GRÁTIS!HYPERLINK "http://alertas.br.msn.com/"http://alertas.-br.msn.com/[As partes desta mensagem que não continham texto foram removidas]No virus found in this incoming message.Checked by AVG Free Edition.Version: 7.5.503 / Virus Database: 269.16.15/1174 - Release Date: 6/12/200710:11No virus found in this outgoing message.Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.15/1174 - Release Date: 6/12/200710:11[As partes desta mensagem que não continham texto foram removidas] _________________________________________________________________ Encontre o que procura com mais eficiência! Instale já a Barra de Ferramentas com Windows Desktop Search GRÁTIS! http://desktop.msn.com.br/ [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
