t_id
817
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
524779797 | 948074 | True | False | Successfully run |
Record count: 1
{$ifdef fpc}{$mode objfpc}{$endif} uses classes, sysutils; var list : TStringList; begin list := TStringList.Create; try try list.commatext := '"OK"'; writeln ('---'); writeln (list.text); writeln ('---'); except on e:exception do begin writeln('Exception: '+e.message); halt(1); end; end; try //Failed list.commatext := ''; writeln ('---'); writeln (list.text); writeln ('---'); except on e:exception do begin writeln('Exception: '+e.message); halt(1); end; end; finally list.Free; writeln ('Freeing list'); end; end.