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] 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
