摘要： TAction // TEditCut、TEditCopy、TEditPaste、TEditSelectAll、TEditUndo、TEditDelete、TEditSelectAll、TEditSelectAllTWindowAction // TWindowClose、TWindowCascade、TWindowTileHorizontal、TWindowTileVertical、TWindowMinimizeAll、TWindowArrangeTHelpAction // THelpContents、THelpTopicSearch、THelpOnHelp、THelpContextAct 阅读全文

摘要： 一个普通的数字列表类(TNumList), 还没有支持遍历:unit NumList;interfaceuses SysUtils;type TNumList = class private FCount: Integer; FNumArray: array of Double; function GetNum(aIndex: Integer): Double; procedure SetNum(aIndex: Integer; aNum: Double); public constructor Create(aCount: Integer); property Count: Integer 阅读全文