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