Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1 | daniel-mar | 1 | # ð; k¹â6×0ù SplSpeicherung <rSplSpeicherung.DFMf+5pSplSpeicherung.pass+5 dSystem fTObject|ê®ìgTObject.Dispatchµ |
2 | ÄgTObject.NewInstance· |
||
3 | ÄgTObject.FreeInstance¸ |
||
4 | Äfstring¶+{f |
||
5 | AnsiString¶+{fInteger fÂgFalsesÉøgTruevÉøgCopy gLength g@LStrLenrÅX[û g @LStrCopyé`pÅfBooleanúefPLongintËÉg@InitializeRecord9Y:g @LStrCat3é`pÅg@LStrCmpé`pÅg@HandleFinallyé`pÅg@LStrClr\ª«>g@FinalizeRecord9Y:gExit f PAnsiCharu½RfLongBool;»ég @LStrCatNé`pÅg@LStrToPChar$ÉÇg @LStrArrayClrüfTextFiles¾g |
||
6 | AssignFile g@AssignA#°ÀgReset g |
||
7 | @ResetTextðË gReadln g@ReadLnÈg @ReadLongðË g CloseFile g@CloseðË g@_IOTesté`pÅgRewrite g@RewritTextðË gWriteln g@Write0LStringµTg@WriteLnÔ|| g@Write0LongTº³g@ReadLString¹g @CallDynaInsté`pÅcdSysInit cdWindows g |
||
8 | DeleteFile2å7cdMessages cdSysUtils f |
||
9 | TSearchRecÜg FindFirstilgFindNext8oCèg FindCloseäµ |
||
10 | ÿg |
||
11 | DeleteFile'h';Z4@gIntToStrñF¬cdClasses gTComponent.UpdateRegistryÒa0þgTComponent.WriteStateÖa0þgTComponent.SafeCallExceptionïa0þgTPersistent.Assignë!FqfTStringsecdGraphics cdControls gTWinControl.AssignTo<¾ßgTWinControl.CanAutoSize<¾ßgTWinControl.CanResize<¾ßgTWinControl.ConstrainedResize<¾ßgTWinControl.CreateHandle<¾ßg#TWinControl.CustomAlignInsertBefore<¾ßgTWinControl.CustomAlignPosition <¾ßgTWinControl.DestroyWnd$<¾ßg!TWinControl.DockReplaceDockClient'<¾ßgTWinControl.GetClientOrigin5<¾ßgTWinControl.GetControlExtents7<¾ßgTWinControl.GetDeviceContext8<¾ßgTWinControl.SetParentBackgroundW<¾ßgTWinControl.ShowControlY<¾ßg+TWinControl.UpdateControlOriginalParentSize[<¾ßgTWinControl.Invalidate<¾ßgTWinControl.Repaint<¾ßgTWinControl.SetBounds<¾ßgTWinControl.Update<¾ßgTControl.GetActionÄ×ïYgTControl.GetDragImagesÊ×ïYgTControl.GetEnabledË×ïYg!TControl.GetFloatingDockSiteClassÍ×ïYgTControl.SetAutoSizeÞ×ïYgTControl.SetDragModeß×ïYgTControl.SetEnabledà×ïYgTControl.SetNameá×ïYgTControl.SetBiDiModeå×ïYgTControl.InitiateAction(ØïYgTControl.SetTextq×ïYgTControl.SetVisibles×ïYgmrYes¾}ç1gTControl.GetTextE×ïYfTWinControlG©GgmrNoÁ}ç1cdForms fTForm!³5g.TFormTgTCustomForm.AlignControls~C)gTCustomForm.CreateParams~C)gTCustomForm.CreateWindowHandle~C)gTCustomForm.CreateWnd~C)gTCustomForm.DefineProperties~C)gTCustomForm.DestroyHandle~C)gTCustomForm.DestroyWindowHandle~C)gTCustomForm.DoCreate~C)gTCustomForm.DoDestroy ~C)gTCustomForm.GetClientRect%~C)gTCustomForm.GetFloating'~C)gTCustomForm.Loaded*~C)gTCustomForm.Notification+~C)gTCustomForm.PaintWindow-~C)gTCustomForm.QueryInterface/~C)gTCustomForm.ReadState0~C)gTCustomForm.RequestAlign1~C)gTCustomForm.SetParentBiDiMode3~C)gTCustomForm.SetParent5~C)gTCustomForm.UpdateActions6~C)gTCustomForm.ValidateRename8~C)gTCustomForm.WndProc:~C)gTCustomForm.Resizing;~C)gTCustomForm.Createt~C)gTCustomForm.CreateNewu~C)gTCustomForm.Destroyv~C)gTCustomForm.AfterConstructionw~C)gTCustomForm.BeforeDestructionx~C)gTCustomForm.CloseQueryz~C)gTCustomForm.DefaultHandler{~C)gTCustomForm.SetFocus~C)gTCustomForm.SetFocusedControl~C)gTCustomForm.ShowModal~C)gTCustomForm.WantChildKey~C)g%TScrollingWinControl.AdjustClientRectµ<Åg&TScrollingWinControl.AutoScrollEnabled·<Åg%TScrollingWinControl.AutoScrollInView¸<ÅgTCustomForm.Closey~C)cdDialogs g |
||
12 | MessageDlgãn~fTMsgDlgType²ÇnÇgmtConfirmation4qlZf |
||
13 | TMsgDlgBtn>aKPgmbYes· |
||
14 | IãgmbNoº |
||
15 | IãgmtError.qlZgmbOK½ |
||
16 | IãcdStdCtrls fTButtonä«IÝfTListBox »¼ñfTLabelÝ^LfTEditPõøg.TButtonÇ'/g .TListBoxãCg.TLabelÀ2*Òg.TEdit3ÉÖîgTCustomListBox.GetSelectedM #øcdExtCtrls fTBevel£È¢ZfTPanelë§ g.TBevel¬g.TPanelÎ{~qcdSpin ceSplMain gMainForm¶ìȪf TMainForm¨¯ªgTMainForm.PlaySound;§ÄBf |
||
17 | TGameScene¢äg |
||
18 | gsNewLevelLwceDXClass gTCustomDXTimer.SetEnabledÀ#c5SplSpeicherung _¸Ïc5System c5SysInit bc5Windows dc5Messages hc5SysUtils jc5Classes xc5Graphics c5Controls c5Forms Îc5Dialogs Ac5StdCtrls ec5ExtCtrls c5Spin ¡c&.TSpeicherungForm ½MP0 *TSpeicherungForm Êéoþ2 SpeicherungFormæ ØOþ2`%FCompVersion Üy2ÿÿÿÿ 1.0 7.2F 4 5SplMain ¥c(TSpeicherungForm.SearchSaves |
||
19 | |
||
20 | 62!Self 2 srf ú res .f qúc 2(!TSpeicherungForm.LoeschenBtnClick |
||
21 | ! 62!Self 2!Sender Markiertf |
||
22 | þ i |
||
23 | . 8 . |
||
24 |