t_id
1528
t_adddate
2005/03/15
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950867994 | 1015809 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3719 } { Submitted by "Markus Beth" on 2005-03-01 } { e-mail: markus.beth@zkrd.de } {$ifdef fpc}{$mode delphi}{$endif} uses Classes; begin with TStringList.Create do try Delimiter := ' '; QuoteChar := #0; Add('1'); Add('2'); WriteLn(DelimitedText); if DelimitedText<>'1 2' then halt(1); finally Free; end; end.