delphi常用

1.

exit: 退出函数体
abort: 遇到异常,安静处理,就是不显示不提示
break: 退出当前循环体,包括for ,while, repeat等循环体
continue: 结束循环内的本次处理,继续从循环体的开始位置继续执行

2.  获得电脑运行时间

function TickCountToString(dwTickCount: DWORD): string;
var
  nVal: DWORD;
begin             
  Result := '';  
  //day
  nVal   := dwTickCount div (24 * 60 * 60 * 1000);
  Result := Result + IntToStr (nVal ) + '-';
  if nVal > 0 then
    Dec( dwTickCount, nVal * 24 * 60 * 60 * 1000);
  //hour
  nVal   := dwTickCount div (60 * 60 * 1000);
  Result := Result + IntToStr (nVal );
  if nVal > 0 then
    Dec( dwTickCount, nVal * 60 * 60 * 1000);
  //min
  nVal   := dwTickCount div (60 * 1000);
  Result := Result + ':' + IntToStr (nVal );
  if nVal > 0 then
    Dec( dwTickCount, nVal * 60 * 1000);
  //sec
  nVal   := dwTickCount div (1000);
  Result := Result + ':' + IntToStr (nVal );
end;