Hello,
I have the following class :
FDK_record = class
private
TABLE: FDK_table;
procedure SET_COLUMN ( field_index: integer; field_value: string );
function GET_COLUMN ( field_index: integer ): string ;
procedure SET_COLUMN ( field_name: string; field_value: string );
function GET_COLUMN ( field_name: string ): string ;
public
STATUS : fdk_record_status;
VALUES : array of string;
NR_FIELDS : integer;
constructor CREATE( t: FDK_table ; s: fdk_record_status );
property VALUE_BY_NAME [filed_name : string ] : string read
get_column write set_column ; default;
end;
I don't understand why the following usage works :
r:=mytable.GET_RECORD(6); { this returns a FDK_record }
r[0]:='BZBZB';
Since the default property is VALUE_BY_NAME , which is referenced by a
string, why does
it work with an integer index ? It should accept only string indexes !
It looks like the property's index type (string) is not enforced at
all : if the given
index is integer it simply uses the integer version of GET_COLUMN and
SET_COLUMN .
Having overloaded functions seems to fool the compiler into accepting any kind
of argument , as long as there is an overloaded function matching its type.
Is this a bug or a feature ?
Cheers,
Adrian Maier
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
