取得自从开机到现在CPU运行的周期数，超毫秒级的精度 function Ticker : DWord; register; begin asm push EAX push EDX db $0f,$31 mov Result, EAX pop EDX pop EAX end; end; procedure TForm1.Button1Click(Sender: TObject); begin showmessage(inttostr( Ticker)(2007-12-07)
以下程序将教你如何制作一个窗体,窗体一旦运行将在屏幕上不断抖动. 定义两个变量: var BackLeft,BackTop,I:integer; //保存窗体的left BackLeft:= Left; //保存窗体的top BackTop := Top; //其中number可由你设置一个灵活的数字,当然值由你定 for I:=1 toNumber do beg (2007-12-07)
昨天在MSN上碰到现在深圳的老朋友“太可怕”，他告诉我今年的BorCon上将会有DELPHI 9的正式消息，并发给了我这个：《 Come to BorCon 2004 (US) to see the next Delphi release! - by John Kaster 》。 但是很遗憾，距离BorCon 2004还有23天，我用GOOGLE搜了一下，没(2007-12-07)
type TPosRange=0..32; TStateResult=0..1; function GetBitSate(Source:Integer;Pos:TPosRange): TStateResult ; begin Result:=((Source and (1 shl Pos))shr Pos); end; (2007-12-07)
