TAChart: Extend TDatapointTool.AffectedSeries to accept also semicolon and pipe ('|') as separators.

git-svn-id: trunk@58768 -

components/tachart/tachartutils.pas

@@ -236,7 +236,7 @@ type
   end;
 
   // An ordered set of integers represented as a comma-separated string
-  // for publushing as a single property.
+  // for publishing as a single property.
   TPublishedIntegerSet = object
   strict private
     FAllSet: Boolean;
@@ -985,7 +985,15 @@ begin
   if AllSet then exit;
   sl := TStringList.Create;
   try
-    sl.CommaText := AValue;
+    if pos(',', AValue) > 0 then
+      sl.CommaText := AValue
+    else if pos(';', AValue) > 0 then begin
+      sl.Delimiter := ';';
+      sl.DelimitedText := AValue;
+    end else if pos('|', AValue) > 0 then begin
+      sl.Delimiter := '|';
+      sl.DelimitedText := AValue;
+    end;
     SetLength(FData, sl.Count);
     i := 0;
     for s in sl do

components/tachart/test/UtilsTest.pas

@@ -445,6 +445,10 @@ begin
   AssertTrue(FISet.AllSet);
   FISet.AsString := '+';
   AssertEquals(PUB_INT_SET_EMPTY, FISet.AsString);
+  FISet.AsString := '3 ;1;; 2';
+  AssertEquals('3,1,2', FISet.AsString);
+  FISet.AsString := '3|1||2';
+  AssertEquals('3,1,2', FISet.AsString);
 end;
 
 procedure TPublishedIntegerSetTest.TestIsSet;

components/tachart/test/test.lpi

@@ -1,7 +1,7 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="9"/>
+    <Version Value="11"/>
     <PathDelim Value="\"/>
     <General>
       <Flags>
@@ -18,7 +18,6 @@
     <VersionInfo>
       <Language Value=""/>
       <CharSet Value=""/>
-      <StringTable ProductVersion=""/>
     </VersionInfo>
     <BuildModes Count="1">
       <Item1 Name="default" Default="True"/>
@@ -30,9 +29,10 @@
       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
     </PublishOptions>
     <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-      </local>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
     </RunParams>
     <RequiredPackages Count="1">
       <Item1>
@@ -43,27 +43,22 @@
       <Unit0>
         <Filename Value="test.lpr"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="test"/>
       </Unit0>
       <Unit1>
         <Filename Value="UtilsTest.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="UtilsTest"/>
       </Unit1>
       <Unit2>
         <Filename Value="SourcesTest.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="SourcesTest"/>
       </Unit2>
       <Unit3>
         <Filename Value="AssertHelpers.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="AssertHelpers"/>
       </Unit3>
       <Unit4>
         <Filename Value="DbTest.pas"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="DbTest"/>
       </Unit4>
     </Units>
   </ProjectOptions>
@@ -88,12 +83,6 @@
         <OverflowChecks Value="True"/>
       </Checks>
     </CodeGeneration>
-    <Other>
-      <CompilerMessages>
-        <UseMsgFile Value="True"/>
-      </CompilerMessages>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
   </CompilerOptions>
   <Debugging>
     <Exceptions Count="4">