blob: 495f1f6252dd8ce5485b32b527ee11aee4688b71 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{$ifdef fpc}{$mode delphi}{$endif}
uses classes;
var
StrList : TStringList;
x : Integer;
Para : string;
begin
Para:='Hello,"This","i"s",a,"Test for"," TStringList"';
StrList := TStringList.Create;
writeln('Parameter: '+Para);
StrList.CommaText := Para;
writeln('Strings:');
for x := 0 to StrList.Count-1 do
writeln(StrList.Strings[x]);
writeln('CommaText: '+StrList.CommaText);
if StrList.CommaText<>'Hello,This,i,"s""",a,"Test for"," TStringList"' then
begin
writeln('ERROR!');
halt(1);
end;
StrList.Free;
end.
|
