20210707

anbs_cp/LikeDelphi.cs

@@ -1,10 +1,8 @@
-using System;
-using System.Collections.Generic;
-using System.Text;
+using System.Collections.Generic;
 
 namespace anbs_cp
 {
-    public class LikeDelphi
+    public static class LikeDelphi
     {
         /*
          * Аналог функции "IncludeTrailingBackslash
@@ -19,5 +17,24 @@ namespace anbs_cp
             }
             return result;
         }
+        public static List<string> ParseString(string AString, char ADelim)
+        {
+            int from = -1;
+            int to = AString.Length;
+            List<string> result = new List<string>();
+            do
+            {
+                from++;
+                to = AString.IndexOf(ADelim, from);
+                if (to <= 0)
+                {
+                    to = AString.Length;
+                }
+                if (from != to)
+                    result.Add(AString.Substring(from, to - from));
+                from = to;
+            } while (to != AString.Length);
+            return result;
+        }
     }
 }

anbs_cp/TypeConverter.cs

@@ -1,6 +1,4 @@
-using System;
-
-namespace anbs_componentspack
+namespace anbs_componentspack
 {
     public static class TypeConverter
     {

anbs_cp/anbs_cp.csproj

@@ -4,8 +4,8 @@
     <TargetFramework>netcoreapp3.1</TargetFramework>
     <Version>0.1.0</Version>
     <Authors>Alexander Babaev</Authors>
-    <Product>delphi2c#</Product>
-    <Description>Library to import some useful functions from Delphi language to C# language.</Description>
+    <Product>ANB Software Components Pack</Product>
+    <Description>Library of some useful functions in C# language.</Description>
     <Copyright />
   </PropertyGroup>