Цитата:
Сообщение от lmikle
Так сойдет?
Код:
function GetRectByCoord(x1,y1,x2,y2 : Integer) : TRect;
begin
Result.Left := Min(x1,x2);
Result.Right := Max(x1,x2);
Result.Top := Min(y1,y2);
Result.Bottom := Max(y1,y2);
end;
|
Не совсем понял как использовать.
Undeclared identifier: 'Min'
Undeclared identifier: 'Max'