Re: FastCode RTL Replacement v0.20 Released!

"Dennis" <marianndkc@xxxxxxxxxxxxxxx> wrote in message
news:434a78db$1@xxxxxxxxxxxxxxxxxxxxxxxxx
>>
>> My opinion about not unnecessarily duplicating functions (for the reasons
>> given in my previous meesage) do still apply
>
> No they do not, because there is no way in Pascal to have to function
> interfaces pointing at the same implementation.

The very simple unit listed below declares 3 functions (a, b and c) which
share the same implementation (CommonFunction).

regards,
John

unit UnitX;

interface

type
SomeFunctionType = function(Value: Integer) : Integer;

function CommonFunction(Value: Integer) : Integer;

const
a: SomeFunctionType = CommonFunction;
b: SomeFunctionType = CommonFunction;
c: SomeFunctionType = CommonFunction;

implementation

function CommonFunction(Value: Integer) : Integer;
begin
//Sone Code
end;

end.



.