actualizar aplicacion

[Neftali [Germán.Estévez]]

Empezado por israelgs

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?