t_id
1528
t_adddate
2005/03/15
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ 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.