Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: PointsEqual
PointsEqual
|
function PointsEqual ( const Point1, Point2 : TPoint ) : Boolean; |
Функция (Unit Classes)
|
Сравнивает два значения TPoint на предмет равенства
|
Описание:
|
Функция PointsEqual сравнивает значения параметров Point1 и Point2, и возвращает Истину (True), если они равны. Если любое значение X или Y каждой точки различно, то будет возвращена Ложь (False). |
Пример кода: Сравнение различных и идентичных точек
|
var
start, finish : TPoint;
begin
// Установка начальной и конечной точек
start := Point(1, 2);
finish := Point(3, 4);
// Начальная точка равна конечной точке?
if PointsEqual(start, finish)
then ShowMessage('1,2 = 3,4')
else ShowMessage('1,2 <> 3,4');
// Попытка использования PointsEqual с идентичными значениями
if PointsEqual(Point(2,9), Point(2,9))
then ShowMessage('2,9 = 2,9')
else ShowMessage('2,9 <> 2,9');
end;
Результат:
|
1,2 <> 3,4 2,9 = 2,9 |