Go to most recent revision | Blame | Last modification | View Log | RSS feed
# ð; k¹â6×0ù SplSpeicherung <rSplSpeicherung.DFMf+5pSplSpeicherung.pass+5 dSystem fTObject|ê®ìgTObject.Dispatchµ
ÄgTObject.NewInstance·
ÄgTObject.FreeInstance¸
Äfstring¶+{f
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
AssignFile g@AssignA#°ÀgReset g
@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
DeleteFile2å7cdMessages cdSysUtils f
TSearchRecÜg FindFirstilgFindNext8oCèg FindCloseäµ
ÿg
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.SetNa
meá×ï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.BeforeDest
ructionx~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
MessageDlgãn~fTMsgDlgType²ÇnÇgmtConfirmation4qlZf
TMsgDlgBtn>aKPgmbYes·
IãgmbNoº
IãgmtError.qlZgmbOK½
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
TGameScene¢äg
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
62!Self 2 srf ú res .f qúc 2(!TSpeicherungForm.LoeschenBtnClick
! 62!Self 2!Sender Markiertf
þ i
. 8 .