Subversion Repositories spacemission

Rev

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

Rev 6 Rev 15
Line 55... Line 55...
55 
        mainform.enemys.Strings[i] := mainform.enemys.Strings[i + 1];
 55 
        mainform.enemys.Strings[i] := mainform.enemys.Strings[i + 1];
56 
        mainform.enemys.Strings[i + 1] := puffer;
 56 
        mainform.enemys.Strings[i + 1] := puffer;
57 
      end;
 57 
      end;
58 
    end;
 58 
    end;
59 
  end;
 59 
  end;
60 
  Memo1.lines.add('; SpaceMission ' + FCompVersion);
 60 
  Memo1.lines.add('; SpaceMission 1.0');
61 
  Memo1.lines.add('; LEV-File');
 61 
  Memo1.lines.add('; LEV-File');
62 
  Memo1.lines.add(inttostr(MainForm.ScrollBar.Max)); // --> Länge der Karte
 62 
  Memo1.lines.add(inttostr(MainForm.ScrollBar.Max)); // --> Länge der Karte
63 
  for i := 0 to mainform.enemys.count-1 do
 63 
  for i := 0 to mainform.enemys.count-1 do
64 
  begin
 64 
  begin
65 
    Memo1.lines.add(speicherungform.filter(3, mainform.enemys.Strings[i]));
 65 
    Memo1.lines.add(speicherungform.filter(3, mainform.enemys.Strings[i]));