fpcsrc/tests/webtbs/tw1250.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{$mode objfpc}

uses classes;

var list : TStringList;

begin
  list := TStringList.Create;
  try
    list.commatext := '"0","6","-1"';
    writeln ('---');
    writeln (list.text);
    writeln ('---');
  finally
    list.Free;
    writeln ('Freeing list');
  end;
end.