t_id
830
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526154586 | 948308 | True | False | Successfully run |
Record count: 1
{ %version=1.1 } {$mode objfpc} type TCheck=class(TObject); var vlA : TCheck; vlB : TObject; procedure aa(const ParXX :array of TObject); begin // writeln(cardinal(ParXX[0]),' ', cardinal(ParXX[1])); if (ParXX[0]<>vlA) or (ParXX[1]<>vlB) then begin writeln('error'); halt(1); end; end; begin vlB := TObject.Create; vlA := TCheck.Create; aa([vlA,vlB]); end.