Note: slot one is really result[0] and solt two is result[1] and so onSCAR Code:Function SlotsWithItemDtm(Dtm:Integer):Array of boolean;
var
box:TBox;
I, x, y:Integer;
begin
SetArrayLength(Result, 27)
for I:=1 to 28 do
begin
Box:=InvBox(I)
If FindDTM(dtm, x, y, Box.x1, Box.y1, Box.x2, Box.y2)then Result[I-1]:=True;
end;
end;







Reply With Quote





