t_id
643
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526317868 | 948333 | True | False | Successfully run |
Record count: 1
{ %version=1.1 } var err : boolean; procedure lowercase(c:char);overload; begin writeln('char'); end; procedure lowercase(c:shortstring);overload; begin writeln('short'); err:=false; end; procedure lowercase(c:ansistring);overload; begin writeln('ansi'); end; var w : widestring; s : ansistring; i : longint; begin err:=true; { this should choosse the shortstring version } lowercase(w); if err then begin writeln('Wrong lowercase Error!'); halt(1); end; { check if ansistring pos() call is not broken } s:=''; for i:=1 to 300 do s:=s+'.'; s:=s+'test'; if pos('test',s)<>301 then begin writeln('Pos(ansistring) Error!'); halt(1); end; end.