摘要： 在CSDN上看到的一个网友写的,挺实用的.unit uClosingEffect;interfaceuses Windows, Messages, SysUtils, Classes, Graphics;const WM_REDIRCREATE = WM_USER + 382; WM_REDIRDESTROY = WM_USER + 383; WM_REDIRCLOSING = WM_USER +... 阅读全文

摘要： procedure QuickSort(var A: array of Integer; iLo, iHi:Integer); procedure Swap(var A,B:Integer); var temp:Integer; begin temp:= A; A:=B; B:=temp; end;var Lo,Hi,Mid: Integer;begin Lo := iLo; Hi := iHi;... 阅读全文