Subversion Repositories spacemission

Rev

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

Rev 51 Rev 66
Line 208... Line 208...
208 
  begin
 208 
  begin
209 
    MessageDlg('Dies ist kein gültiger Spielstandname!', mtError, [mbOK], 0);
 209 
    MessageDlg('Dies ist kein gültiger Spielstandname!', mtError, [mbOK], 0);
210 
    LevelName.setfocus;
 210 
    LevelName.setfocus;
211 
    exit;
 211 
    exit;
212 
  end;
 212 
  end;
213 
  for i := 0 to length(LevelName.text) do
 213 
  for i := 1 to length(LevelName.text) do
214 
  begin
 214 
  begin
215 
    if (copy(LevelName.text, i, 1) = '\') or
 215 
    if (copy(LevelName.text, i, 1) = '\') or
216 
      (copy(LevelName.text, i, 1) = '/') or
 216 
      (copy(LevelName.text, i, 1) = '/') or
217 
      (copy(LevelName.text, i, 1) = ':') or
 217 
      (copy(LevelName.text, i, 1) = ':') or
218 
      (copy(LevelName.text, i, 1) = '*') or
 218 
      (copy(LevelName.text, i, 1) = '*') or