gramajo
26-12-2015, 02:41:04
Hola a todos Feliz Navidad, estoy midiendo la velocidad de conexión, inserción, etc. de componentes IBX, ODBC y ZEOS, he visto el tutorial de Caral, pero tengo la gran duda de calcular el tiempo en milisegundos, cómo puedo hacerlo? he adaptado cierto código que encontré en otra publicación, pero el tiempo lo mide en segundos, disculpen mi ignorancia como puedo hacer para obtener el tiempo en milisegundos?
PD El tuto de caral no tiene el código fuente.
procedure TForm1.btnInsertarClick(Sender: TObject);
var i : integer;
tInicio, tFinal : TDateTime;
tSegundosInicio,tSegundosFinal : Integer;
begin
tInicio:= now;
tSegundosInicio:= (StrToInt(FormatDateTime('hh',tInicio))*3600)+
(StrToInt(FormatDateTime('nn',tInicio))*60)+
(StrToInt(FormatDateTime('ss',tInicio))*1);
end;
PD El tuto de caral no tiene el código fuente.
procedure TForm1.btnInsertarClick(Sender: TObject);
var i : integer;
tInicio, tFinal : TDateTime;
tSegundosInicio,tSegundosFinal : Integer;
begin
tInicio:= now;
tSegundosInicio:= (StrToInt(FormatDateTime('hh',tInicio))*3600)+
(StrToInt(FormatDateTime('nn',tInicio))*60)+
(StrToInt(FormatDateTime('ss',tInicio))*1);
end;