Since Free Pascal supports function overloading,
you could do something like this:
Function CheckPoint(X, Y:real): Boolean;
Begin
{Does something here..}
end;
Function CheckPoint(aPoint: tMyRec): Boolean;
Begin
Result:=CheckPoint(aPoint.X, aPoint.Y);
end;
// So you can use it either way:
var
MyRec:tMyRec;
begin
if CheckPoint(MyRec) then {do stuff};
if CheckPoint(1.2, 2.2) then {do more stuff};
end;
> Here is why I was wondering why you couldn't, say I have this type:
> Type tMyRec = Record X, Y : Real; End;
>
> And I have this function:
>
> Function CheckPoint(aPoint: tMyRec): Boolean;
> Begin
> {Does something here..}
> end;
>
> begin
> CheckPoint((X:1.2;Y:2.2));
> end.
__________________________________
Do you Yahoo!?
Yahoo! Mail SpamGuard - Read only the mail you want.
http://antispam.yahoo.com/tools
_______________________________________________
fpc-pascal maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
