Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**omata**

Delphi-Quellcode:

			:

  If  (abs(Raumschiff[r].xCoord-Kugel[i].xCoord)<1) and

      (abs(Raumschiff[r].yCoord-Kugel[i].yCoord)<1) then

  begin

    Raumschiff[r].Free;

    Raumschiff[r]:=nil;

    Abgeschossen := Abgeschossen+1;

  end;

:

omata Registriert seit: 26. Aug 2004 Ort: Nebel auf Amrum 3.154 Beiträge Delphi 7 Enterprise	#5 Re: abs funktioniert nicht 10. Jan 2010, 20:48 markieren Delphi-Quellcode: : If (abs(Raumschiff[r].xCoord-Kugel[i].xCoord)<1) and (abs(Raumschiff[r].yCoord-Kugel[i].yCoord)<1) then begin Raumschiff[r].Free; Raumschiff[r]:=nil; Abgeschossen := Abgeschossen+1; end; :
	Zitat

Einzelnen Beitrag anzeigen

Re: abs funktioniert nicht