Subversion Repositories spacemission

Compare Revisions

Regard whitespace Rev 15 → Rev 14

/LevSpeicherung.pas
250,7 → 250,7
 
procedure TSpeicherungForm.SpeichernBtnClick(Sender: TObject);
var
LevelData: TLevelData;
SavGame: textfile;
i, j: integer;
puffer: string;
begin
282,8 → 282,10
if MessageDlg('Level ist bereits vorhanden. Ersetzen?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
exit;
end;
 
// Sortierung (wichtig)
// Öffnen oder erstellen
AssignFile(SavGame, FDirectory+'Levels\Level '+inttostr(SpinEdit.Position)+'.lev');
Rewrite(SavGame);
// Sortierung
for j := 0 to mainform.enemys.Count - 2 do
begin
for i := 0 to mainform.enemys.Count - 2 do
296,24 → 298,19
end;
end;
end;
 
// Speichern
LevelData := TLevelData.Create;
try
LevelData.LevelEditorLength := MainForm.ScrollBar.Max;
SetLength(LevelData.EnemyAdventTable, mainform.enemys.count);
WriteLN(SavGame, '; SpaceMission ' + FCompVersion);
WriteLN(SavGame, '; LEV-File');
WriteLN(SavGame, inttostr(MainForm.ScrollBar.Max)); // --> Länge der Karte
for i := 0 to mainform.enemys.count-1 do
begin
LevelData.EnemyAdventTable[i].enemyType := TEnemyType(StrToInt(filter(3, mainform.enemys.Strings[i])));
LevelData.EnemyAdventTable[i].x := StrToInt(filter(1, mainform.enemys.Strings[i]));
LevelData.EnemyAdventTable[i].y := StrToInt(filter(2, mainform.enemys.Strings[i]));
LevelData.EnemyAdventTable[i].lifes := StrToInt(filter(4, mainform.enemys.Strings[i]));
WriteLN(SavGame, filter(3, mainform.enemys.Strings[i]));
WriteLN(SavGame, filter(1, mainform.enemys.Strings[i]));
WriteLN(SavGame, filter(2, mainform.enemys.Strings[i]));
WriteLN(SavGame, filter(4, mainform.enemys.Strings[i]));
end;
LevelData.Save(FDirectory+'Levels\Level '+inttostr(SpinEdit.Position)+'.lev');
finally
FreeAndNil(LevelData);
end;
 
// Schließen
CloseFile(SavGame);
// Nacharbeiten
MainForm.LevChanged := false;
MainForm.AnzeigeAct;
429,11 → 426,7
procedure TSpeicherungForm.SpinEditEdtKeyPress(Sender: TObject;
var Key: Char);
begin
{$IFDEF UNICODE}
if not CharInSet(Key, [#13, #08, '0'..'9']) then
{$ELSE}
if not (Key in [#13, #08, '0'..'9']) then
{$ENDIF}
Key := #0;
end;