t_id
818
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
523344529 | 947839 | True | False | Successfully run |
Record count: 1
{$ifdef fpc}{$mode objfpc}{$endif} uses classes; var SL : TStringlist; begin SL := TStringlist.Create; sl.Add('1'); sl.Add('2'); sl.Add('A"A'); sl.Add('B'); sl.Add('C,C'); sl.Add('D;D'); writeln(sl.Text); writeln(sl.CommaText); if sl.CommaText<>'1,2,"A""A",B,"C,C",D;D' then begin writeln('ERROR!'); halt(1); end; sl.free; end.