Variants unit в Delphi 5

← →
Baks (2011-02-04 23:03) [0]

Пытаюсь скомпилировать программу, Delphi не может найти Variants.dcu т.к. в Delphi 5 которой я пользуюсь его нет. Он появился в более поздних версиях. Подскажите, можно ли как-то запустить этот пример на Delphi 5 или нужна другая версия Delphi?

← →
_Юрий (2011-02-04 23:06) [1]

убрать Variants из секции uses

← →
Baks (2011-02-04 23:21) [2]

Убрал, теперь пишет, что не может найти: IsZero(), не знаете случайно, что это за функция?

← →
Baks (2011-02-04 23:35) [3]

Нашёл, что функции IsZero и SameValue, должны быть в модуле Math.
Но у меня нет.

← →
Xapakupu (2011-02-04 23:45) [4]

function SameValue(const A, B: Extended; Epsilon: Extended): Boolean; begin if Epsilon = 0 then Epsilon := Min(Abs(A), Abs(B)) * ExtendedResolution; Result := Abs(A - B) < Epsilon; end; function SameValue(const A, B: Double; Epsilon: Double): Boolean; begin if Epsilon = 0 then Epsilon := Min(Abs(A), Abs(B)) * DoubleResolution; Result := Abs(A - B) < Epsilon; end; function SameValue(const A, B: Single; Epsilon: Single): Boolean; begin if Epsilon = 0 then Epsilon := Min(Abs(A), Abs(B)) * SingleResolution; Result := Abs(A - B) < Epsilon; end; function IsZero(const A: Extended; Epsilon: Extended): Boolean; begin if Epsilon = 0 then Epsilon := ExtendedResolution; Result := Abs(A) < Epsilon; end; function IsZero(const A: Double; Epsilon: Double): Boolean; begin if Epsilon = 0 then Epsilon := DoubleResolution; Result := Abs(A) < Epsilon; end; function IsZero(const A: Single; Epsilon: Single): Boolean; begin if Epsilon = 0 then Epsilon := SingleResolution; Result := Abs(A) < Epsilon; end;

← →
Anatoly Podgoretsky © (2011-02-04 23:48) [5]

> Baks (04.02.2011 23:03:00) [0]

Ты видимо откуда то скоммунизмил код, совсем для другой версии Дельфи. Меня
версию на Д7 или пробуй адаптировать код, создавая отсутствующие функции или
заменяя чем то другим.

← →
Anatoly Podgoretsky © (2011-02-04 23:57) [6]

> Baks (04.02.2011 23:35:03) [3]

Вот видишь, уже второй модуль, которого у тебя нет.

← →
Xapakupu (2011-02-04 23:58) [7]

>>скоммунизмил код

Политкорректно говорить "сопенсорсил".

← →
Baks (2011-02-05 00:00) [8]

Взял Вот эту штучку: http://code.google.com/p/box2d-delphi/
Там написано: Supports all Delphi versions.

← →
Xapakupu (2011-02-05 00:07) [9]

>>Delphi translation of open source 2D physics engine box2D.

Точно сопенсорсил!

>>Там написано

У тебя есть вся контактная информация разработчиков.
Почему ты спрашиваешь о проблемах с этой библиотекой здесь?

← →
Baks (2011-02-05 00:12) [10]

Ну хорошо, попробую написать этому китайцу.

← →
Baks (2011-02-05 00:15) [11]

Если поставить одновременно D5 и D7 можно?

← →
Dimka Maslov © (2011-02-05 00:20) [12]

> Если поставить одновременно D5 и D7 можно?

Можно

← →
Baks (2011-02-05 00:32) [13]

Всем спасибо!

I"ll be back :)

← →
Anatoly Podgoretsky © (2011-02-05 01:01) [14]

> Xapakupu (04.02.2011 23:58:07) [7]

Да, да.

← →
Anatoly Podgoretsky © (2011-02-05 01:01) [15]

> Baks (05.02.2011 00:32:13) [13]

Не угрожай.

← →
tester (2011-02-05 06:26) [16]

Удалено модератором

← →
Паша (2011-02-05 09:22) [17]

> кодПолиткорректно говорить "сопенсорсил".

ужос.

спионерил - понимаю. скомуниздил - тоже. ну, есть еще вариации на тему.

> Anatoly Podgoretsky © (04.02.11 23:48) [5]

не придирайся. он просто взял на прокат. все вокруг колхозное, все вокруг - мое. и вопрос только в том, сможет ли автор все это радостно (с)тыреное поднять?

а может, он и не стырил, а досталось в наследство? может, у него работа такая попалась? презумпция невиновности как там у вас, работает?

> Паша (05.02.2011 09:22:17) [17]

В гражданских делах презумпция невиновности не работает, состязательность
сторон, сторона должна доказать свою невиновность САМА

← →
Паша (2011-02-05 23:18) [19]

Удалено модератором

← →
Паша (2011-02-05 23:33) [21]

Удалено модератором

← →
Xapakupu (2011-02-05 23:38) [22]

Удалено модератором

Variants unit в Delphi 5 Найти похожие ветки