t_id
1435
t_adddate
2005/01/06
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949669781 | 1015615 | True | False | Successfully run |
Record count: 1
{$mode objfpc}{$H+} uses SysUtils; function Func1( Args :array of string ) :string; begin WriteLn('project2 Arg0-'+Args[0] +' Arg1-'+Args[1]); if (Args[0]='1') and (Args[1]='2') then Result := 'Ok' else Result := 'Err'; end; var Int1, Int2 :integer; s : string; begin Int1 := 1; Int2 := 2; s:=Func1( [ IntToStr(Int1), IntToStr(Int2)] ); writeln(s); if s<>'Ok' then halt(1); end.