Hi,
ich versuche mit folgender FUnktion herauszufinden, ob das Feld mit den Koordinaten x2;y2;z2 ein Nachbar des Feldes x1;y1;z1 ist
Delphi-Quellcode:
function IsNeighbor(x1,y1,z1,x2,y2,z2: Integer): Boolean;
begin
result:=false;
if (x1=x2) and (y1=y2) and (z1=z2) then
exit;
result:= ((x2 in [x1-1..x1+1]) and (y2 in [y1-1..y1+1]) and (z2 in [z1-1..z1+1]));
end;
Aber irgendwie scheint da immer false bei rauszukommen.
beispielwerte:
x2:1 x1:2
y2:0 y1:0
z2:1 z1:1
Eigentlich müsste da doch true bei rauskommen
