t_id
826
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{$mode objfpc} function Uper1(const Pwd:AnsiString):AnsiString; begin Result := UpCase(Pwd); Exit; end; function Uper2(const Pwd:AnsiString):AnsiString; begin Exit(UpCase(Pwd)); end; begin writeln('test', Uper1('test')); writeln('test', Uper2('test')); if Uper1('test')<>'TEST' then begin writeln('ERROR in Uper1!'); halt(1); end; if Uper2('test')<>'TEST' then begin writeln('ERROR in Uper2!'); halt(1); end; end.