September 2017 Update

Task/Comma-quibbling/Pascal/comma-quibbling.pascal

@@ -0,0 +1,61 @@
+program CommaQuibbling;
+uses Classes, StrUtils;
+
+const OuterBracket=['[',']'];
+
+type
+
+  { TCommaQuibble }
+
+  TCommaQuibble = class(TStringList)
+  private
+    function GetCommaquibble: string;
+    procedure SetCommaQuibble(AValue: string);
+  public
+    property CommaQuibble: string read GetCommaquibble write SetCommaQuibble;
+  end;
+
+{ TCommaQuibble }
+
+procedure TCommaQuibble.SetCommaQuibble(AValue: string);
+begin
+  AValue:=ExtractWord(1,AValue,OuterBracket);
+  commatext:=Avalue;
+end;
+
+function TCommaQuibble.GetCommaquibble: string;
+var x: Integer;
+    Del: String;
+begin
+  result:='';
+  Del:=', ';
+  for x:=0 to Count-1 do
+  begin
+    result+=Strings[x];
+    if x=Count-2 then Del:=' and '
+    else if x=count-1 then Del:='';
+    result+=del;
+  end;
+  result:='{'+result+'}';
+end;
+
+const TestData: array [0..7] of string=( '[]',
+                                         '["ABC"]',
+                                         '["ABC", "DEF"]',
+                                         '["ABC", "DEF", "G", "H"]',
+                                         '',
+                                         '"ABC"',
+                                         '"ABC", "DEF"',
+                                         '"ABC", "DEF", "G", "H"');
+var Quibble: TCommaQuibble;
+    TestString: String;
+begin
+  Quibble:=TCommaQuibble.Create;
+
+  for TestString in TestData do
+  begin
+    Quibble.CommaQuibble:=TestString;
+    writeln(Quibble.CommaQuibble);
+  end;
+
+end.