PessoALL,
No D7 podíamos editar os arquivos de recursos dos projetos.
No D2007 não tem esta opção !! Pelo menos não achei.
Tentei usar o editor do D7 no arquivo de resources do projeto feito no
D2007 e não funciona !!
Da um erro de "arquivo inválido". Alguem sabe como fazer isto ??
[ ]´s
Moacir
Daniel Bastos escreveu:
> Que coicidência, fiz isso hoje a tarde :)
>
> pra facilitar, criei um exemplo com o código importânte. Funciona bem, mas,
> como dito anteriormente, no início o tempo fica meio louco. Depois
> estabiliza.
>
> pode baixar o exemplo pelo link abaixo
> www.tadeu.pro.br/daniel/exemplo1.zip
>
> e só pra avisar, foi feito em delphi 2007, e pode dar algum problema pra
> abrir em outro delphi, mas acho difícil que não funcione até mesmo no delphi
> 1, pois o código é simples d+ :)
>
> Abs.
> Daniel A. Bastos
>
> Em 30/10/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]>
> escreveu:
>
>> Não é muito dificil, veja bem, é só vc medir o tempo de 1 regsitro e
>> multiplicar por 4000 e ir sempre atualizando o valor do tempo à cada
>> registro cadastrado....
>> O tempo vai variando um pouco no começo mas no final vai estar
>> estabilizado, fiz isso em clipper e funicona legal.
>> Vou te dar o exemplo em CLIPPER, pois to sem tempo pra converte-lo pra
>> DELPHI mas não é dificil e nem muito demorado......
>> A base é o seguinte, chame o STARTREG() e depois vai chamando o SAYREG()
>> para ir atualizando o tempo....
>> Usava isso para dar o tempo de criação nos indices em clipper, pois
>> demorava muiiiiiiiiiito no 386 da época... hoje até que é super rapido..
>>
>> //
>> // COMPILAR COM:
>> // CLIPPER SAYREG -N
>> //
>> //
>> *************************************************************************
>>
>> STATIC OLDROW:=0, OLDCOL:=0, POSROW:=0, POSCOL:=0, INITIME:=0
>> STATIC ROT := { "|", "/", "-", "\" }, PROT := 1
>> STATIC lastrec := 0, recno := 0, seconds := 0
>> static time:=0, porc:=0, nRetVal := .t.
>>
>> FUNC IndexON( titulo, db, indices )
>> SaveBox( 04, 00, 12, 77, " ", "W/G" )
>> SETCOLOR( "N/W" )
>> SSAY( 05, 01, titulo )
>> for x : - 1 to len( indices )
>> dbUseArea( .F.,, db,,, .F. )
>> SSAY( 07, 03, "Indice ("+alltrim(str(x))+"/"+alltrim(str(len(indices))+")
>> - "+indices[x,3] )
>> StartRegAut()
>> ordCondSet(,,, {|| sayreg()},,, RECNO(),,,, )
>> codeblock := &( "{ || "+indices[x,2]+" } " )
>> ordCreate( indices[x,1],, indices[x,2], codeblock )
>> dbCloseArea()
>> next x
>> RETURN
>>
>> FUNC SAYREG
>> recno := recno()
>> if recno = lastrec .or. seconds <> seconds()
>> SetPos( POSROW, POSCOL )
>> seconds := seconds()
>> time := seconds-initime
>> porc := (recno*100)/lastrec
>> QQOut( transform(recno,"@E 99,999,999"),;
>> tstring(time),;
>> transform(porc,"@R 999%" ),;
>> tstring((time*100)/porc) )
>> // rot[if(prot<4,++prot,prot:=1)] )
>> // SETPOS( OLDROW, OLDCOL )
>> if inkey() == 27
>> nRetVal := .f.
>> endif
>> endif
>> RETURN nRetVal
>>
>> PROC STARTREG( row, col )
>> // ENDREG( oldrow, oldcol )
>> OLDROW := ROW(); OLDCOL := COL(); INITIME := SECONDS()
>> IF ROW = NIL; ROW := ROW(); ENDIF
>> IF COL = NIL; COL := COL(); ENDIF
>> SETPOS( ROW, COL ); QQOut( transform(lastrec(),"@E 99,999,999" ),
>> tstring(initime) )
>> POSROW := ROW(); POSCOL := COL()
>> lastrec := lastrec()
>> seconds := 0
>> nRetVal := .t.
>> RETURN
>>
>> Luiz Escobar - Analista/Desenvolvedor:
>> WEB - HTML/JavaScript/PHP/MySQL
>> WINDOWS - Delphi/ASSEMBLY/MySQL/xBase
>> SERVIDORES - CNA IntraNetWare4.11, LINUX-(RedHat9/Suse10.2), Windows 2K/XP
>>
>> ----- Original Message -----
>> From: Evaldo
>> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
>> Sent: Tuesday, October 30, 2007 2:54 PM
>> Subject: [delphi-br] Estimar o tempo que será gasto com uma tarefa
>>
>> Alguém tem alguma formula onde eu possa calcular o tempo que será gasto
>> com o processamento de uma tarefa?
>>
>> Por exemplo:
>> vou inserir 4000 registro no banco, então eu faria o calculo de
>> aproximação do tempo que será gasto para a inserção dos registros e
>> mostraria uma msg ao usuário com o tempo estimado .
>>
>> Penso que teria que levar em consideração o hardware da máquina e os
>> processos que já estão rodando no momento.
>>
>> É possível fazer esse calculo?
>>
>> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
>> armazenamento!
>> http://br.mail.yahoo.com/
>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>> [As partes desta mensagem que não continham texto foram removidas]
>>
>>
>>
>>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
