Cita:
|
Empezado por israelgs
Código:
TDateTime Time;
while(true)
{
//saco el tiempo
Time=Now();
//Le doy formaro a la variable de tiempo
uno=Time.FormatString("hh:nn:ss zzz");
Memo1->Lines->Add(uno);
Sleep(1);// un milisegundo
Application->ProcessMessages(); // procesar los demas mensajes
}
|
Creo que son demasiadas cosas para hacer en un milisegundo...
Si haces unas cuanteas cosas (Now() tarda bastante y actualizar las líneas del memo también) y luego además le dices que espere 1 milisegundo (sleep(1)) es poco probable que puedeas conseguir una resolución de 1 milisegundo.
Deberías probar con un Timer y colocar el Interval a 1 (y eliminar el Sleep), aunque creo que sigue siendo una resolución muy pequeña.
¿exactamente qué necesitas hacer cada milisegundo?