Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1 | daniel-mar | 1 | # 4D v¹â6×0ù LevSpeicherung <rLevSpeicherung.DFMQ{+5pLevSpeicherung.pasS{+5 dSystem fTObject|ê®ìfChar#»fstring¶+{f |
2 | AnsiString¶+{fInteger fÂgTObject.Dispatchµ |
||
3 | ÄgTObject.NewInstance· |
||
4 | ÄgTObject.FreeInstance¸ |
||
5 | ÄgFalsesÉøgTruevÉøg @LStrCatNé`pÅg @LStrCat3é`pÅg @LStrArrayClrüg@HandleFinallyé`pÅfBooleanúegExit f PAnsiCharu½RfLongBool;»ég@LStrToPChar$ÉÇfTextFiles¾g |
||
6 | AssignFile g@AssignA#°ÀgReset g |
||
7 | @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 |
||
8 | DeleteFile2å7cdMessages cdSysUtils g |
||
9 | FileExists'h'&gIntToStrñF¬g |
||
10 | DeleteFile'h';Z4@gStrToIntrÅögIntToStrõÛucdClasses 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.SetVisibles×ïYgmrYes¾}ç1fTWinControlG©GgmrNoÁ}ç1gTControl.SetTextq×ïYgTControl.GetTextE×ïYcdForms 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 |
||
11 | MessageDlgãn~fTMsgDlgType²ÇnÇgmtConfirmation4qlZf |
||
12 | TMsgDlgBtn>aKPgmbYes· |
||
13 | IãgmbNoº |
||
14 | IãgmtError.qlZgmbOK½ |
||
15 | IãcdStdCtrls fTButtonä«IÝfTListBox »¼ñfTLabelÝ^LfTEditPõøg.TButtonÇ'/g .TListBoxãCg.TLabelÀ2*Òg.TEdit3ÉÖîgTCustomListBox.GetSelectedM #øgTScrollBar.SetMax2=cdExtCtrls fTBevel£È¢ZfTPanelë§ g.TBevel¬g.TPanelÎ{~qcdSpin cdComCtrls fTUpDown£²f |
||
16 | TUDBtnTypeXæ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 |
||
17 | cY 4(!TSpeicherungForm.LoeschenBtnClick |
||
18 | ·¬i 84!Self 4!Sender Markiertf þ i |
||
19 | |||
20 | . : . ce 4j*.3 <k(TSpeicherungForm.LadenBtnClick ·¬i !84!Self 4!Sender Markiertf Ö if |
||
21 | È TempArtMain |
||
22 | |||
23 | TempLiveMainf |
||
24 | À SavGamef Qø Ergebnisf <Øc 4(TSpeicherungForm.RightStr ·¬i Ì4!Self 4 !strf ø!count |
||
25 | |||
26 | c© 4(TSpeicherungForm.Filter ·¬i ñ4!Self 4 !nf |
||
27 | è!sf ø#Result& |