Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Подписаться Бесплатный дискуссионный лист Подписчиков 308
←   Январь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
11.01.2005
19:26:58
22:02:25
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
27.01.2005
21:52:03
23:20:12
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт листа: http://codeguru.ru
Открыт: 21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес модератора: comp.soft.prog.prog-owner@subscribe.ru

Модератор
3V

Статистика

308 подписчиков
0 за неделю

аналог функции

Здравствуйте!
Подскажите пожалуйста аналог Visual Basic функции Sgn на Дельфи, оченб
нужно!

Ответить  
keel
Fri, 14 Jan 2005 07:48:17 +0200 (#296853)

 

Ответы:

Дельфей нет, в Билдере нашел. Но функция, вроде, дельфийская...

Unit
Math

Category
Arithmetic routines

extern PACKAGE int __fastcall Sign(const double AValue);
extern PACKAGE int __fastcall Sign(const int AValue);
extern PACKAGE int __fastcall Sign(const __int64 AValue);

Description
Use Sign to test the sign of a numeric value. Sign returns

0 if AValue is zero.
1 if AValue is greater than zero.
-1 if AValue is less than zero.

Или даже можно написать собственную функцию, которая будет делать это.

Этот вариант сканает для любых числовых типов x (не только integer):

function sign(x: integer): integer;
begin
sgn := ord(x>0) - ord(x<0);
end;

Номер выпуска : 3940
Возраст листа : 480 (дней)
Количество подписчиков : 519
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/297070
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

Ответить  
"Юрчик"
Fri, 14 Jan 2005 18:02:51 +0500 (#297070)

 

Тема: аналог функции

Можно задавать в формате function Format(const Format: string;
const Args: array of const): string; - u Unsigned decimal
А функция Sign есть в модуле Math

Ответить  
"Surin_bp"
Fri, 14 Jan 2005 16:59:47 +0300 (#297130)

 

Hello keel,

Friday, January 14, 2005, 7:48:17 AM, you wrote:

А в хелп заглянуть слабо?
Там написано ( правда, на ихнем дурацком английском -(((( ):

Unit

Math

Category

Arithmetic routines

type TValueSign = -1..1;
function Sign(const AValue: Double): TValueSign; overload;
function Sign(const AValue: Integer): TValueSign; overload;
function Sign(const AValue: Int64): TValueSign; overload;

Description

Use Sign to test the sign of a numeric value. Sign returns

0 if AValue is zero.
1 if AValue is greater than zero.
-1 if AValue is less than zero.

Ответить   Вадим Шешунов Fri, 14 Jan 2005 16:06:19 +0200 (#297141)