Subversion Repositories spacemission

Rev

Rev 66 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 66 Rev 73
Line 166... Line 166...
166
      MessageDlg('Dies ist kein gültiger Levelname!', mtError, [mbOK], 0);
166
      MessageDlg('Dies ist kein gültiger Levelname!', mtError, [mbOK], 0);
167
      LevelName.SetFocus;
167
      LevelName.SetFocus;
168
      exit;
168
      exit;
169
    end;
169
    end;
170
  end;}
170
  end;}
171
  if LevelListBox.items.IndexOf(Format(SLevelListBox, [LevelNumber.Value])) > -1 then
171
  if (LevelListBox.items.IndexOf(Format(SLevelListBox, [LevelNumber.Value])) > -1) or
-
 
172
     (LevelListBox.items.IndexOf(Format(SLevelListBox, [LevelNumber.Value])+' ('+SSelbsterstellt+')') > -1) then
172
  begin
173
  begin
173
    if MessageDlg('Level ist bereits vorhanden. Ersetzen?', mtConfirmation, mbYesNoCancel, 0) <> mrYes then
174
    if MessageDlg('Level ist bereits vorhanden. Ersetzen?', mtConfirmation, mbYesNoCancel, 0) <> mrYes then
174
      exit;
175
      exit;
175
  end;
176
  end;
176
 
177