xray 的自由梦想

原创 清华里看到的可爱的小松鼠

原创 Variant Records: The equivalent to the C-union structure

Variant Records: The equivalent to the C-union structure Is there a way to create a C union-like structure in Delphi? That is, a structure that uses the same memory area? The Delphi (Pascal

原创 两阶段检查的代码片断

//移动图形对象procedure TMoveableShape.MoveShapes(DeltaX, DeltaY: Integer);var  I, Pass: Integer;  TempControl: TControl;begin  if not Assigned(Parent) then    Exit;   // Do 2 passes through controls. The f

原创 This famous problem is known as a "lost update"

Each of the instances of the component performs the following steps:1. Read an integer X from a database.2. Add 10 to X.3. Write the new value of X to the database. If each these three steps exceutes