| 52,13 → 52,10 |
|---|
| var |
| SpeicherungForm: TSpeicherungForm; |
| |
| const |
| FCompVersion = '1.0'; |
| |
| implementation |
| |
| uses |
| LevMain; |
| Global, LevMain; |
| |
| {$R *.DFM} |
| |
| 92,7 → 89,7 |
|---|
| end;} |
| for i := 1 to 9999 do |
| begin |
| if fileexists(mainform.fdirectory+'Levels\Level '+inttostr(i)+'.lev') then |
| if fileexists(fdirectory+'Levels\Level '+inttostr(i)+'.lev') then |
| LevelListBox.items.Add('Level ' + inttostr(i)); |
| end; |
| end; |
| 120,7 → 117,7 |
|---|
| liw.visible := true; |
| LadenBtn.enabled := false; |
| LoeschenBtn.enabled := false; |
| deletefile(mainform.FDirectory+'Levels\'+ |
| deletefile(FDirectory+'Levels\'+ |
| LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev'); |
| SearchLevels; |
| end; |
| 158,7 → 155,7 |
|---|
| MainForm.DestroyLevel; |
| MainForm.LevChanged := false; |
| // Öffnen |
| AssignFile(SavGame, mainform.FDirectory+'Levels\'+ |
| AssignFile(SavGame, FDirectory+'Levels\'+ |
| LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev'); |
| Reset(SavGame); |
| // Laden |
| 286,7 → 283,7 |
|---|
| exit; |
| end; |
| // Öffnen oder erstellen |
| AssignFile(SavGame, mainform.FDirectory+'Levels\Level '+inttostr(SpinEdit.Position)+'.lev'); |
| AssignFile(SavGame, FDirectory+'Levels\Level '+inttostr(SpinEdit.Position)+'.lev'); |
| Rewrite(SavGame); |
| // Sortierung |
| for j := 0 to mainform.enemys.Count - 2 do |
| 343,7 → 340,7 |
|---|
| end; |
| temp := LevelListBox.Items.strings[LevelListBox.itemindex]; |
| SpinEdit.Position := strtoint(RightStr(temp, length(temp)-6)); |
| AssignFile(SavGame, mainform.FDirectory+'Levels\'+ |
| AssignFile(SavGame, FDirectory+'Levels\'+ |
| LevelListBox.Items.strings[LevelListBox.itemindex]+'.lev'); |
| Reset(SavGame); |
| ReadLN(SavGame, Ergebnis); |