2 ting rære hianden

Så får du lige en fuldt testet udgave.

  if(

  (
  ((Image1.Left >= Image2.Left) AND (Image1.Left <= Image2.Left+Image2.Width))
  AND
  ((Image1.Top >= Image2.Top) AND (Image1.Top <= Image2.Top+Image2.Height))
  )

  OR

  (
  ((Image2.Left >= Image1.Left) AND (Image2.Left <= Image1.Left+Image1.Width))
  AND
  ((Image2.Top >= Image1.Top) AND (Image2.Top <= Image1.Top+Image1.Height))
  )

  OR

  (
  ((Image1.Left >= Image2.Left) AND (Image1.Left <= Image2.Left+Image2.Width))
  AND
  ((Image1.Top <= Image2.Top) AND (Image1.Top >= Image2.Top-Image2.Height))
  )

  OR

  (
  ((Image2.Left >= Image1.Left) AND (Image2.Left <= Image1.Left+Image2.Width))
  AND
  ((Image2.Top <= Image1.Top) AND (Image2.Top >= Image1.Top-Image2.Height))
  )

  ) then
  begin
    ShowMessage('Game Over');
  end

Der findes ingen event som hedder "right". Den skal du selv udregne. image1.left+image1.width svarer til width


Ellers er nørden inde på det rigtige. Som sagt har jeg ikke lige delphi kørende. Men jeg kan vært fald lige finde ud af at rette lidt i Nørdens koder:

function intersect(A:TImage;B:TImage):boolean;
begin
  result:=true;
  if(B.Left>=A.Right OR A.Left>=B.Right) Then
  begin
    result:=false
  end;
  if(B.Top>=A.Bottom OR A.Top>=B.Bottom) Then
  begin
    result:=false
  end;
end;

Jeg ved ikke helt om "OR" kan bruges sådan.

Jo du gør nedenstående 2 linier er taget fra din kode, jeg har fjernet resten af koden:

(Image1.Left >= Image2.Left) AND (Image1.Left <= Image2.Left+Image2.Width)

(Image1.Left >= Image2.Left) AND (Image1.Left <= Image2.Left+Image2.Width)


Jeg ved godt at de er 2 forskellige OR blokke men det retter ikke på at du spilder cpu på at teste på det samme 2 gange.

Det kunne spare ved at teste om den var sandt om om et af de 2 andre kriterier var sande.
noget i retning af:

(
    ((Image1.Left >= Image2.Left) AND (Image1.Left <= Image2.Left+Image2.Width))
  AND(
      ((Image1.Top >= Image2.Top) AND (Image1.Top <= Image2.Top+Image2.Height)) 
    OR 
      ((Image1.Top <= Image2.Top) AND (Image1.Top >= Image2.Top-Image2.Height))
  )
)

Og synes stadigvæk ikke du har argumenteret for hvad logikken skulle vøre i at sige at de billeder overlapper hvis det hvis afstanden fra billed 1 top ned til billed 2 top er mindre end billed 2 højde.

Så vidt jeg kan se ville den påstå at nedenstående firkanter
overlapper, A left er tydeligvis over B left men under B left + B width, og eftersom at B er 4 linier høj men a kun er 3 linier over B top er A top altså mindre end 4 linier fra B top.

   A_____
    |   |
    |   | 
    -----
 B_______
  |     |       
  |     |
  |     |
  |     |
  -------  

Og bare fordi man får point for noget betyder altså ikke at det du har skrevet er korrekt, betyder kun at det ikke fejlede i posterens tests hvilket jo kunne bestå i noget så simpelt som at teste om din kode faktisk siger der er overlap når der er det, hvilket jo ikke vil fange at den siger overlap hvis der ikke er overlap.

Lav en timer, og gør noget ala dette (utestet):

if(
((Image1.Left => Image2.Left) AND (Image1.Left <= Image2.Left+Image2.Width))
OR
((Image1.Top => Image2.Top) AND (Image1.Top <= Image2.Top+Image2.Height))
)
then
begin
ShowMessage('Game Over');
end

Ahh.. Morten vi skal vært fald lægge Image1.width og image1.left sammen, så vi også kan få de højre kanter. Jeg tør ikke lige komme med nogle koder (har ikke lige delphi installeret. Men det må være noget ed at at du skal lave en if -else for både venstre side og højre side.

Den virker ik

Vis i ik lige test den og skrive koden

Det her er en omskrivning af en c++ kode der testede 3d cuber for overlap, så det er muligvis ikke korrect delphi kode.

function intersect(A:TImage;B:TImage):boolean;
begin
  result:=true;
  if(B.Left>A.Right OR A.Left>B.Right) Then
  begin
    result:=false
  end;
  if(B.Top>A.Bottom OR A.Top>B.Bottom) Then
  begin
    result:=false
  end;
end;

Der er noget galt med den kode

Der stå i delphi: "Undeclared identifier: 'Right'"

Hva kan det være

han glemte at rette X.Rigth til X.Left+X.Width og X.Bottom til X.Top+X.Height, hvor X er A og B.

Vil du ik lige skrive den færdig kode