47,10 → 47,13 |
var |
SpeicherungForm: TSpeicherungForm; |
|
const |
FCompVersion = '1.0'; |
|
implementation |
|
uses |
Global, SplMain; |
SplMain; |
|
{$R *.DFM} |
|
76,7 → 79,7 |
li4b.caption := 'n/a'; |
LadenBtn.enabled := false; |
LoeschenBtn.enabled := false; |
res := FindFirst(fdirectory+'Spielstände\*.sav', 0, sr); |
res := FindFirst(mainform.fdirectory+'Spielstände\*.sav', 0, sr); |
try |
while (res = 0) do |
begin |
118,7 → 121,7 |
li4b.caption := 'n/a'; |
LadenBtn.enabled := false; |
LoeschenBtn.enabled := false; |
deletefile(FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav'); |
deletefile(mainform.FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav'); |
searchsaves; |
end; |
end; |
155,7 → 158,7 |
end; |
{if liu.visible or (LevelListBox.items.count=0) then |
exit;} |
AssignFile(SavGame, FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav'); |
AssignFile(SavGame, mainform.FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav'); |
Reset(SavGame); |
ReadLN(SavGame); |
ReadLN(SavGame); |
203,7 → 206,7 |
if MessageDlg('Spielstand ist bereits vorhanden. Ersetzen?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then |
exit; |
end; |
AssignFile(SavGame, FDirectory+'Spielstände\'+LevelName.text+'.sav'); |
AssignFile(SavGame, mainform.FDirectory+'Spielstände\'+LevelName.text+'.sav'); |
Rewrite(SavGame); |
WriteLN(SavGame, '; SpaceMission '+FCompVersion); |
WriteLN(SavGame, '; SAV-File'); |
244,7 → 247,7 |
exit; |
end; |
LevelName.Text := LevelListBox.Items.strings[LevelListBox.itemindex]; |
AssignFile(SavGame, FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav'); |
AssignFile(SavGame, mainform.FDirectory+'Spielstände\'+LevelListBox.Items.strings[LevelListBox.itemindex]+'.sav'); |
Reset(SavGame); |
ReadLN(SavGame, Ergebniss); |
if Ergebniss <> '; SpaceMission '+FCompVersion then |