Overload функций и процедур в Fpc Опции

[Ozzя]

как реализовать?

[volvo]

Читай:
Перегрузка операций, Компилятор FPC 2.0.x

Там же есть и про перегрузку функций

[Ozzя]

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я - 16.03.2006 13:18

[volvo]

А обязательно перегружать здесь? По-моему, достаточно использовать параметр по умолчанию... Ну, если хочешь перегрузку - тогда:

{$mode OBJFPC}
interface
...
procedure PutPixel(X,Y: LongInt);
procedure PutPixel(X,Y: LongInt; Color: DWord);
...
implementation
...
procedure PutPixel(X,Y: LongInt);
begin ... end;

procedure PutPixel(X,Y: LongInt; Color: DWord);
begin ... end;

[Ozzя]

volvo
Спасибо. Сейчас отредактирую. Проверю.
Кстати, на само слово overload fpc не дает ошибки. Оно для чего-то используется?

[volvo]

А если Дельфийскую программу надо откомпилировать?

Не забудь {$mode OBJFPC}, без него будет ошибка ...

[Ozzя]

Прошло.
Ругается на

Код

var GrResult        : LongInt := grInvalidMode;

Присвоения переменной значения в разделе var в fpc не допускается?

А вообще насколько tmt и fpc совместимы? Такое впечатление, что игра не стоит свеч

[volvo]

Ozzя,

var GrResult : LongInt = grInvalidMode;

А присоедини-ка всю программу, посмотрим, можно ли перенести это на FPC, или действительно не стОит...

[Ozzя]

Ругается на edx

GraphX.pas(1140,20) Error: Unknown identifier "EDX"

Код

procedure ClearBanked; assembler;
      asm
        cld
        mov     edx,[BankOffset]

Отправил на pm

[volvo]

У меня не ругается... Смотри в настройках Ассемблера (Options -> Compiler -> Assembler) ... Что-то там не так... Должно понимать.

(PM не получил)

[Ozzя]

Да, стояло att style, поменял на intel

PM повторил

Отругало

Код

aphX.pas(7045,22) Fatal: illegal character "'&'" ($26)

Код

add     eax,[&Dx]

Заменил автоматом code на assembler.
Не заметил, что поменялось ErrorCode на Errorassembler
Искал ошибку долго