t_id
1339
t_adddate
2004/08/28
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949666513 | 1015618 | True | False | Successfully run |
Record count: 1
var err : boolean; procedure check(const s:string;b:boolean); begin writeln(s,b); if not b then begin err:=true; writeln('error!'); end; end; Var SS : ShortString; AS : AnsiString; Begin SS := 'asdf'; AS := 'asdf'; Check('SS > '''': ', SS > ''); Check('Length(SS) > 0: ' , Length(SS) > 0); Check('AS > '''': ', AS > ''); Check('Length(AS) > 0: ' , Length(AS) > 0); if err then halt(1); End.