blob: 4ad77a39540b94ec160cdc611baead2dd3686ae6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ 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.
|
