t_id
1436
t_adddate
2005/01/06
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022632170 | 1027364 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3506 } { Submitted by "Frank Kintrup" on 2005-01-04 } { e-mail: frank.kintrup@gmx.de } {$MODE Delphi} type TEnumType = (enum0, enum1, enum2); type TTestClass = class (TObject) private function GetPropValue( nIndex : TEnumType) : Integer; public property Prop0 : Integer index enum0 read GetPropValue; end; function TTestClass.GetPropValue( nIndex : TEnumType) : Integer; begin Result := Integer(nIndex); end; begin end.