TIMING FUNCTION CALLS
Note that in order to use the timeGetTime (API)
call, the MMSystem unit must be in the Uses
clause...
*********************************************************
var
startTime: Integer;
endTime: Integer;
funcCallTime: Integer;
begin
startTime := timeGetTime;
//put the function or block of code you want to time here
cText := GetClipboardText;
endTime := timeGetTime;
funcCallTime := (endTime - startTime);
tempString := 'GetClipboardText takes ' + IntToStr(funcCallTime) +
' milliseconds to execute.';
Application.MessageBox(PChar(tempString), ' Programmers Debug Window', mb_OK);
end;