Go to most recent revision | Blame | Last modification | View Log | RSS feed
# 4D v¹â6‚×0ù LevSpeicherung– <rLevSpeicherung.DFMQ{+5pLevSpeicherung.pasS{+5 dSystem fTObject|ê®ìfChar#»šfstring¶+{Ÿf
AnsiString¶+{ŸfInteger ™fÂgTObject.Dispatchµ
Ä„gTObject.NewInstance·
Ä„gTObject.FreeInstance¸
Ä„gFalsesÉšøgTruevÉšøg @LStrCatNé`pÅg @LStrCat3é`pÅg @LStrArrayClrüŸg@HandleFinallyé`pÅfBooleanúegExit f PAnsiChar“u½RfLongBool;»ég@LStrToPChar$ÉÇfTextFileŒs¾g
AssignFile g@AssignA#°ÀgReset g
@ResetTextðË ƒgReadln g@ReadLnœÈ™g@ReadLString¹ŸgSeekEof g@SeekEof¥n³gInc g CloseFile g@CloseðË ƒg@InitializeArray*´g@_IOTesté`pÅg@LStrCmpé`pÅg@FinalizeArray*´gCopy gLength g@LStrLenrÅXŸ[û g @LStrCopyé`pÅfPLongintËŠÉg@LStrAddRef”`Eg@LStrClr\ª«>gBreak g@LStrCaté`pÅg@LStrAsg‘ÔœgRewrite g@RewritTextðË ƒgWriteln g@Write0LStringµ—Tg@WriteLnÔ|| gTrunc g @LStrLAsg‘Ôœg@TRUNCé`pÅg @CallDynaInsté`pÅcdSysInit cdWindows g
DeleteFile2åŒ7cdMessages cdSysUtils g
FileExists'h'&gIntToStrñF¬g
DeleteFile'h'ˆŸ;Z4@gStrToIntrÅögIntToStrŒõÛucdClasses gTComponent.UpdateRegistryÒa0þgTComponent.WriteStateÖa0þgTComponent.SafeCallExceptionïa0þgTPersistent.Assignë!FqfTStrings‡†ecdGraphics 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à×ïYg
TControl.SetNameá×ïYgTControl.SetBiDiModeå×ïYgTControl.InitiateAction(ØïYgTControl.SetVisibles×ïYgmrYes¾}ç1fTWinControlG©GgmrNoÁ}ç1gTControl.SetTextq×ïYgTControl.GetTextE×ïYcdForms fTForm!€³5g.TFormT‘‡gTCustomForm.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)gTCustomF
orm.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
MessageDlgãŒn~fTMsgDlgType²ÇnÇgmtConfirmation4qlZf
TMsgDlgBtn>aKPgmbYes·
IãgmbNoº
IãgmtError.qlZgmbOK½
IãcdStdCtrls fTButtonä«IÝfTListBox »¼ñfTLabelÝ^L€fTEditPõøœg.TButtonÇ'/g .TListBox㎚Cg.TLabelÀ2*Òg.TEdit3ÉÖîgTCustomListBox.GetSelectedM…#øgTScrollBar.SetMax2=cdExtCtrls fTBevel£È¢ZfTPanelë§ g.TBevel†œ€¬g.TPanelÎ{~qcdSpin cdComCtrls fTUpDown£•²f
TUDBtnTypeŒXæŸg.TUpDownüvsgTCustomUpDown.GetPositionsHlgTCustomUpDown.SetPositionsHlceLevMain gMainForm£Ý·f TMainForms=Ä·gTMainForm.DestroyLevelè]ÙOgTMainForm.EnemyAddÍ]ÙOgTMainForm.EnemyCreateç]ÙOgTMainForm.AnzeigeActé]ÙOceDXClass gTCustomDXTimer.SetEnabledÀ#c5LevSpeicherung€ _¸ŽÏc5System c5SysInit tc5Windows vc5Messages zc5SysUtils |c5Classes ˆc5Graphics ”c5Controls –c5Forms Þc5Dialogs ac5StdCtrls …c5ExtCtrls ±c5Spin Åc5ComCtrls Éc&.TSpeicherungForm€ ³ju#2 *TSpeicherungFormˆ Ж—Ñ4 SpeicherungFormæ Þü°Ñ4j%FCompVersionŠ Ü„y2ÿÿÿÿ 1.0 7.2F 6 5LevMain ác(TSpeicherungForm.SearchLevels€ ·¬i ñ˜84!Self 4 i
cœY 4(!TSpeicherungForm.LoeschenBtnClick€
·¬i ˆ84!Self 4!Sender Markiertf þ i
. : . cœe 4j*.3 <k(TSpeicherungForm.LadenBtnClick€ ·¬i !ˆ84!Self 4!Sender Markiertf Ö if
È TempArtMain
TempLiveMainf
À SavGamef Qø Ergebnisf <Øcœ… 4(TSpeicherungForm.RightStr€ ·¬i ÌŒ4!Self 4 !strf ø!count
#Result&