alguem tem algum material sobre gráficos em delphi .... to apanhando um monte ...
Cícero Fernandes Eng. Eletricista Eng. de Segurança ( (0xx 47) 3521 2988 / 9191-6226 * HYPERLINK "blocked::mailto:[EMAIL PROTECTED]"[EMAIL PROTECTED] HYPERLINK "blocked::http://www.fiosecabos.ind.br/"www.fiosecabos.ind.br P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! _____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: quinta-feira, 6 de dezembro de 2007 16:10 Para: delphi-br@yahoogrupos.com.br Assunto: RE: Res: [delphi-br] Ler última linha de um arquivo de texto Prioridade: Alta Como sugestão, antes de ler um arquivo texto muito grande em um TStringList, configure o tamanho do mesmo para comportar o tamanho do arquivo. A propriedade Capacity do TStringList serve pra isso. Exemplo: function UltimaLinhaArqTexto-(const ArqTexto: String): AnsiString; var lFile: File; lSize: Integer; begin Result := ''; AssignFile(lFile, ArqTexto); try Reset(lFile, 1); lSize := FileSize(lFile)-; Close(lFile)-; except Exit; end; with TStringList.-Create do try LoadFromFile(-ArqTexto)-; Result := Strings[Count - 1]; finally Free; 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 linha de um arquivo de texto Andre Luis Silveria escreveu:> joga ele num stringlist, e posiciona no final do stringlist.>-> ----- Mensagem original ----> De: Paulo Daniel Dorensbach <HYPERLINK "mailto:dorensbach_dpr%40yahoo.com.br"[EMAIL PROTECTED]>> Tenho um arquivo de texto que é uma espécie de LOG e é mais ou menos assim:>>> 1 05/12/2007 20:55 Backup.2007- 12-05.20: 55:23> 2 06/12/2007 20:59 Backup.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 linha do arquivo?> E se o arquivo estiver com muitas linhas não vai ficar pesado pra carregar num StringList?E não existe uma limitação para o número de linhas na StringList?--- +-------------------------------------------------------+Paulo Daniel HYPERLINK "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 Mozilla Thunderbirdwww.-mozilla.org.-br+-------------------------------------------- -----------+-_________-_________-_________-_________-_________-_________-_ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. HYPERLINK "http://br.yahoo.com/mailbeta/tudonovo/"http://br.yahoo.-com/mailbeta/-tudon ovo/ ____________-_________-_________-_________-_________-_________-_ Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas 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/2007 10:11 No 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/2007 10:11 [As partes desta mensagem que não continham texto foram removidas]