Overload функций и процедур в Fpc |
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Overload функций и процедур в Fpc |
Ozzя |
Сообщение
#1
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
как реализовать?
|
volvo |
Сообщение
#2
|
Гость |
|
Ozzя |
Сообщение
#3
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
TMT 4 pascal
Код interface ... procedure PutPixelA(X,Y: LongInt); overload PutPixel = PutPixelA; procedure PutPixelB(X,Y: LongInt; Color: DWord); overload PutPixel = PutPixelB; ... implementation ... При переходе на fpc В секции implementation понятно, описываю как: Код operator PutPixel(X,Y: LongInt); ... operator PutPixel(X,Y: LongInt; Color: DWord); ... А в секции interface как описать? Сообщение отредактировано: Ozzя - |
volvo |
Сообщение
#4
|
Гость |
А обязательно перегружать здесь? По-моему, достаточно использовать параметр по умолчанию... Ну, если хочешь перегрузку - тогда:
{$mode OBJFPC} |
Ozzя |
Сообщение
#5
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
volvo
Спасибо. Сейчас отредактирую. Проверю. Кстати, на само слово overload fpc не дает ошибки. Оно для чего-то используется? |
volvo |
Сообщение
#6
|
Гость |
А если Дельфийскую программу надо откомпилировать?
Не забудь {$mode OBJFPC}, без него будет ошибка ... |
Ozzя |
Сообщение
#7
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Прошло.
Ругается на Код var GrResult : LongInt := grInvalidMode; Присвоения переменной значения в разделе var в fpc не допускается? А вообще насколько tmt и fpc совместимы? Такое впечатление, что игра не стоит свеч |
volvo |
Сообщение
#8
|
Гость |
Ozzя,
Цитата var GrResult : LongInt = grInvalidMode; А присоедини-ка всю программу, посмотрим, можно ли перенести это на FPC, или действительно не стОит... |
Ozzя |
Сообщение
#9
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Ругается на edx
Цитата GraphX.pas(1140,20) Error: Unknown identifier "EDX" Код procedure ClearBanked; assembler; asm cld mov edx,[BankOffset] Отправил на pm |
volvo |
Сообщение
#10
|
Гость |
У меня не ругается... Смотри в настройках Ассемблера (Options -> Compiler -> Assembler) ... Что-то там не так... Должно понимать.
(PM не получил) |
Ozzя |
Сообщение
#11
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Да, стояло att style, поменял на intel
PM повторил Отругало Код aphX.pas(7045,22) Fatal: illegal character "'&'" ($26) Код add eax,[&Dx] Заменил автоматом code на assembler. Не заметил, что поменялось ErrorCode на Errorassembler Искал ошибку долго |
Текстовая версия | 2.05.2024 8:56 |