t_id
1315
t_adddate
2004/07/01
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950719979 | 1015786 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3190 } { Submitted by "Martin Schreiber" on 2004-06-28 } { e-mail: } program test; {$mode delphi} uses TypInfo,Classes; var po1: ptypeinfo; begin po1:= typeinfo(tcomponent); //compile error: 'Illegal parameter list' if po1 <> nil then begin //compiles on kylix, result: 'TComponent' writeln(po1^.name); end else begin writeln('typeinfo(tcomponent) = nil'); end; po1:= typeinfo(tobject); //compile error: 'Illegal parameter list' if po1 <> nil then begin //compiles on kylix, result: 'TObject' writeln(po1^.name); end else begin writeln('typeinfo(tobject) = nil'); end; end.