Código Delphi [-] var sw: TStopWatch; begin sw := TStopWatch.Create; sw.Start; //Proceso a medir sw.Stop; Label1.Caption := sw.ElapsedMilliseconds.ToString; //Lugar donde muestro el resultado de la medición... end;
var sw: TStopWatch; begin sw := TStopWatch.Create; sw.Start; //Proceso a medir sw.Stop; Label1.Caption := sw.ElapsedMilliseconds.ToString; //Lugar donde muestro el resultado de la medición... end;