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

[Ozzя]

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

[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 17:18