aproveitando os comentarios como eu faço pra saber quais units são desnecessarias em um determinado form, o meu objetivo com isso é tentar diminuir o tamanho do executavel.
Hernando. Marcelo Silva escreveu: > Só curiosidade ok... > > Bem eu concordo com você que é melhor utilizar uma função já pronta no > delphi... mas isso quando se sabe que ela existe... como por exemplo > eu mesmo não sabia... > Mas como sou curioso fui averiguar essa função ... bem a unit que está > essa função tem nada mais nada menos que 11.825 linhas. > Claro que não é só para esta função ... pois lá tem muitas outras > funções ... na verdade a função Trunc nem está na Unit citada que é a > System.pas mas deve estar em uma dll veja: > > function _ftruncate(Handle: Integer; Filesize: Integer): Integer; cdecl; > external libc name 'ftruncate'; > > Sendo assim parece que não sabemos quantas linhas possa ter :-) > > Não consideraria como absurdo ... leve em conta que nem todos pensam > igual, alguns acham melhor antes de guardar o carro dar uma volta no > quarterão para ver se está tudo ok :-) > > * Só comentários, beleza colegas... > > Marcelo Silva > Cel. 11 9693-4251 > ICQ - 49224093 > MSN [EMAIL PROTECTED] > ----- Original Message ----- > From: Daniel / Tecnobyte > To: [EMAIL PROTECTED] > Sent: Thursday, September 16, 2004 7:32 PM > Subject: [delphi-br] OFF: Uma função com 2408 linhas! > > > Eu nunca tinha visto tanto absurdo em programação. Mas hoje foi o dia! > > Um amigo me enviou uma unit Delphi que mostra o pior código-fonte que se > pode fazer num programa. Para que vocês tenham uma idéia do que estou > falando, uma das funções contidas nesta unit tem nada mais nada > menos que > 2408 linhas! Não estou enganado não; é isto mesmo! > > A unit do maluco tem 5 funções, totalizando 5750 linhas! É mole? > > Para fechar o assunto, tal programador conseguiu escrever uma função > de 180 > linhas só para calcular quantos dias existem entre uma data e outra, > coisa > que se resolveria apenas com: > > Diferenca := Trunc(DataFinal - DataInicial); > > *** > Agora não me perguntem quem é o programador que > escreveu isto, pois não falo nem que me matem! > *** > > Atenciosamente. > > Daniel P. Guimarães > Tecnobyte Informática > www.tecnobyte.com.br > > > > -- > <<<<< 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] ou [EMAIL PROTECTED] > > > > Yahoo! Grupos, um serviço oferecido por: > > > > ------------------------------------------------------------------------------ > Links do Yahoo! Grupos > > a.. Para visitar o site do seu grupo na web, acesse: > http://br.groups.yahoo.com/group/delphi-br/ > > b.. Para sair deste grupo, envie um e-mail para: > [EMAIL PROTECTED] > > c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > Serviço do Yahoo!. > > > > [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] ou [EMAIL PROTECTED] > > > > *Yahoo! Grupos, um serviço oferecido por:* > > > ------------------------------------------------------------------------ > *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] > <mailto:[EMAIL PROTECTED]> > > * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>. > > [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] ou [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