9 Û# q4M#ä SortMemoþÙ? <rSortMemo.dfmo4MpSortMemo.paso4M dSystem fTObject»<úÎfBooleanúegTObject.Equalsô\ggTObject.GetHashCodeõ\ggTObject.ToStringö\ggTObject.Dispatchú\ggTObject.NewInstanceü\ggTObject.FreeInstanceý\gfInteger fÂf UnicodeStringOª]ÏfstringOª]ÏgExit gFalsesÉøgTruevÉøg
|
@UStrEqualé`pÅg @UStrArrayClrüg@UStrClr\ª«>g@HandleFinallyé`pÅgBreak gTObject.Freeá\gg @UStrCatNé`pÅcdSysInit cdWindows gPostMessageÐU«gWA_CLICKACTIVE²}ç1cdMessages gWM_ACTIVATE¾}ç1cdSysUtils cdVariants cdClasses fTStringListá§
ägTComponent.UpdateRegistryÙ§TgTComponent.WriteStateݧTgTComponent.SafeCallExceptionö§TgTPersistent.Assignòg°ÇfTStringsl
|
©g.TStringListÄ{c6gTStringList.Create È|cdGraphics cdControls gTWinControl.AssignToÄgTWinControl.CanAutoSizeÉgTWinControl.CanResizeÊgTWinControl.ConstrainedResizeÌgTWinControl.CreateHandleÏg#TWinControl.CustomAlignInsertBeforeÓgTWinControl.CustomAlignPositionÔgTWinControl.DestroyWndØg!TWinControl.DockReplaceDockClientÛgTWinControl.GetClientOriginègTWinControl.GetControlExtentsêgTWinControl.GetDeviceContextëgTWinControl.SetParentBackgroundg#TWinControl.SetParentDoubleBufferedgTWinControl.ShowControlg+TWinControl.UpdateControlOriginalParentSizegTWinControl.InvalidateGgTWinControl.RepaintMgTWinControl.SetBoundsPgTWinControl.UpdateSgTControl.GetActionv@ùgTControl.GetEnabled|@ùg!TControl.GetFloatingDockSiteClass~@ùgTControl.SetAutoSize@ùgTControl.SetDragMode@ùgTControl.SetEnabled@ùgTControl.SetName@ùgTControl.SetBiDiMode@ùgTControl.GetDragImages@ùgTControl.InitiateActionÚ@ùgTControl.GetTextN@ùgTControl.SetTextO@ùgmrOk¯}ç1gmrCancel²}ç1gTWinControl.GetHandleMcdForms fTFormåèfTCloseAction¿¬þgTCustomForm.AlignControls6HÉgTCustomForm.CreateParams:HÉgTCustomForm.CreateWindowHandle;HÉgTCustomForm.CreateWnd<HÉgTCustomForm.DefineProperties>HÉgTCustomForm.DestroyHandle?HÉgTCustomForm.DestroyWindowHandle@HÉgTCustomForm.DoCreateBHÉgTCustomForm.DoDestroyCHÉgTCustomForm.GetClientRectHHÉgTCustomForm.GetFloatingIHÉgTCustomForm.LoadedMHÉgTCustomForm.NotificationNHÉgTCustomForm.PaintWindowPHÉgTCustomForm.ReadStateRHÉgTCustomForm.RequestAlignSHÉgTCustomForm.SetParentBiDiModeUHÉgTCustomForm.SetParentWHÉgTCustomForm.UpdateActionsXHÉgTCustomForm.ValidateRenameZHÉgTCustomForm.WndProc\HÉgTCustomForm.Resizing]HÉgTCustomForm.QueryInterfaceaHÉgTCustomForm.CreateHÉgTCustomForm.CreateNewHÉgTCustomForm.DestroyHÉgTCustomForm.CloseQueryHÉgTCustomForm.DefaultHandlerHÉgTCustomForm.SetFocusHÉgTCustomForm.SetFocusedControl®HÉgTCustomForm.ShowModal°HÉgTCustomForm.WantChildKey±HÉgTCustomForm.AfterConstruction³HÉgTCustomForm.BeforeDestruction´HÉg%TScrollingWinControl.AdjustClientRect|ag&TScrollingWinControl.AutoScrollEnabled~ag%TScrollingWinControl.AutoScrollInViewag.TFormȼßëgcaNone8GªgcaFree>GªcdDialogs gShowMessage
Jüg
|
MessageDlgÎ%0ÖfTMsgDlgType²ÇnÇgmtConfirmation4qlZf
|
TMsgDlgBtnUaKPgmbYesÎ
|
IãgmbCancel×
|
IãcdComCtrls f TListViewÖ_®¿f TListItemÑíÿHg
|
.TListView¹3f
|
TListItems4ÞngTListItems.GetCounta'ógTListItems.GetItemc'ógTListItems.Addi'ógTListItem.SetCaptionáfTCustomListViewägTCustomListView.GetSelected))ù«gTListItem.DeleteácdStdCtrls f TComboBoxÀüÕfTLabel½¿ ÄfTButtonÇCëg
|
.TComboBox£Ðô&g.TLabel ~g.TButtonª^=cdExtCtrls fTPanel þÝg.TPanelÒz/cdButtons cdIISUnit g_MsgÍV&c5SortMemo _¸Ïc5System c5SysInit 0c5Windows 2c5Messages 8c5SysUtils <c5Variants >c5Classes @c5Graphics Rc5Controls Tc5Forms c5Dialogs òc5ComCtrls c5StdCtrls 5c5ExtCtrls Qc5Buttons ]c5IISunit ac&.TSortMemoForm Ìmé( * TSortMemoForm é** SortMemoFormæ ÷ÿC*N7.2F , (TSortMemoForm.Button1Click º?/ a.*!Self *!Sender i iContentf ø iNamef ð
|
MemoExitstf î . c½ *ÿ(TSortMemoForm.Button2Click º?/ .*!Self * !Sender cÝ *ÿ(TSortMemoForm.EraseBtClick º?/ Q.*!Self *!Sender cé *ÿ(TSortMemoForm.Button4Click º?/ .*!Self * !Sender cõ *ÿ(TSortMemoForm.FormClose º?/ .*!Self *!Sender "Actionf ð i NeedSavef î iContentf øc *ÿ(TSortMemoForm.FormCreate º?/ T.*!Self *!Sender c *ÿ(TSortMemoForm.MemoLVSelectItem º?/ ±.*!Self *!Sender !Item !Selected& |