Es wird nie mehr was glaube ich
Delphi-Quellcode:
procedure TForm1.TiRaumschiffTimer(Sender: TObject);
var r,i: integer;
begin
FOR i:=1 TO nummer DO
begin
FOR r:=1 TO number DO
begin
IF Raumschiff[r] <> nil THEN
begin
Raumschiff[r].GoRight;
ShRaumschiff[r].Left := Raumschiff[r].xCoord;
IF Raumschiff[r].xCoord > 700 THEN
begin
Raumschiff[r].xCoord := -50;
ShRaumschiff[r].Left := Raumschiff[r].xCoord;
end;
If (abs(Raumschiff[r].yCoord-Kugel[i].yCoord)<1) and
(abs(Raumschiff[r].xCoord-Kugel[i].xCoord)<1) then
begin
Raumschiff[r].Free;
Raumschiff[r] := nil;
Abgeschossen := Abgeschossen+1;
end;
end;
end;
IF Kugel[i] <> nil THEN
begin
Kugel[i].GoUp;
ShKugel[i].Top := Kugel[i].yCoord;
end;
end;
LaRaumschiffe.caption := inttostr(Abgeschossen);
Stürzt wieder sofort ab. Habe jetzt alles so geändert, wie vorgeschlagen.