Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Перегрузка math функций / 11 сообщений из 11, страница 1 из 1
02.06.2017, 14:34:24
    #39464701
Sonia
Sonia
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перегрузка math функций
Добрый день!
Возник такой вопрос. Мне нужно, чтобы в одном случае вызывалась Min из модуля Math (для работы с integer), а в другом случае моя Min из методов класса (для работы с TBcd). Подскажите, пожалуйста, возможно ли такое и как реализовать?

P.S. пробовала написать:
Код: pascal
1.
2.
private
function Min(A, B: TBcd): TBcd; overload;



При этом с TBcd полями нормально, а для Integer пытается вызвать мой метод и пишет ошибку о несоответствии типов.

Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2017, 14:43:21
    #39464714
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перегрузка math функций
Пиши Math.Min для integer
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2017, 14:47:33
    #39464720
Прогер123
Прогер123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перегрузка math функций
Мы не ищем лёгких путей?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2017, 14:48:32
    #39464721
Прогер123
Прогер123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перегрузка math функций
В Delphi лучше забыть и не вспоминать эти бредовые нововведения ламеров
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2017, 14:50:26
    #39464726
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перегрузка math функций
Прогер123нововведения
Тяжелый случай...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2017, 14:55:37
    #39464736
Sonia
Sonia
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перегрузка math функций
wadmanПиши Math.Min для integer

Ну блин, сплю в одном ботинке...спасибо!

А чем ему может не нравится моя функция?
[dcc32 Error] Divide.pas(86): E2065 Unsatisfied forward or external declaration: 'TfmDivide.Min'
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2017, 14:58:06
    #39464739
wadman
wadman
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перегрузка math функций
SoniaА чем ему может не нравится моя функция?
Например, её отсутствием.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2017, 15:00:09
    #39464741
Sonia
Sonia
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перегрузка math функций
Sonia,

Нашла ошибку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2017, 15:15:20
    #39464766
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перегрузка math функций
Sonia
Код: pascal
1.
2.
private
function Min(A, B: TBcd): TBcd; overload;

Я бы делал это функцией, а не методом класса
Soniaа для Integer пытается вызвать мой метод и пишет ошибку о несоответствии типов.
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
function Min(const A, B: TBcd): TBcd; overload;
begin
  ........
end;

function Min(const A, B: Double): Double; overload;
begin
  Result := Math.Min(A, B);
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2017, 15:52:17
    #39464824
Aleksandr Sharahov
Aleksandr Sharahov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перегрузка math функций
а всего-то делов - назвать свою MinBCD
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.06.2017, 18:30:35
    #39466155
Bred eFeM
Bred eFeM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перегрузка math функций
Soniaдля работы с TBcd http://docwiki.embarcadero.com/Libraries/Seattle/en/Data.FmtBcd.TBcd
http://docwiki.embarcadero.com/RADStudio/Seattle/en/BCD_Support_Routines
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Перегрузка math функций / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 512ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2042196]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 238ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 188ms
total:  512ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]