Splitのオーバーロード

Delphi XE3のオーバーロードを試してみた。
各オーバーロードの内容はプログラム中のコメントに
記載しました。

view plainprint?

1. program Project2;  
2.   
3. {$APPTYPE CONSOLE}  
4.   
5. {$R *.res}  
6.   
7. uses  
8.   System.SysUtils;  
9.   
10. var  
11.   s,s1 : string;  
12.   elm : TArray<string>;  
13.   elm2 : TArray<string>;  
14.   //sh : TStringHelper;  
15. begin  
16.   try  
17.     { TODO -oUser -cConsole メイン : ここにコードを記述してください }  
18.    //sh : TStringHelper  
19.    s := 'ドッペ,パックン,ニーナ,,ベルト・サタン,,キノッピー';  
20.    //Writeln(s);  
21.   
22.    //カンマで分割  
23.    //オーバーロードの1つ目、第二引数に正の整数を入れると  
24.    //先頭から指定した個数だけ分割します。  
25.    //分割できる数以上の数を指定すると無視します。  
26.    //この場合は、ドッペとパックンだけを切り出します。  
27.    elm := s.Split([','],2);  
28.    write('overload1:');writeln(s);  
29.    //分割した要素を表示  
30.    for s1 in elm do  
31.    begin  
32.      writeln(s1);  
33.    end;  
34.   
35.    writeln;  
36.   
37.    //結合（念のため文字列を初期化)  
38.    //s := '';  
39.    //Writeln(s);  
40.   
41.    //s := s.Join(',',elm);  
42.    //Writeln(s);  
43.   
44.   
45.    //オーバーロードの2つ目、第二引数に  
46.    //TStringSplitOptions.ExcludeEmptyを指定すると  
47.    //空文字を無視して切り出します。  
48.    //TStringSplitOptionsを指定しない場合、あるいは  
49.    //TStringSplitOptions.Noneを指定した場合は  
50.    //空文字も1つとして切り出します。  
51.    elm2 := s.Split([','],TStringSplitOptions.None);  
52.    write('overload2-1:');writeln(s);  
53.    for s1 in elm2 do  
54.    begin  
55.      writeln(s1);  
56.    end;  
57.    writeln;  
58.   
59.    elm2 := s.Split([','],TStringSplitOptions.ExcludeEmpty);  
60.    write('overload2-2:');writeln(s);  
61.    for s1 in elm2 do  
62.    begin  
63.      writeln(s1);  
64.    end;  
65.    writeln;  
66.   
67.   
68.    //オーバーロードの3つ目、第二引数に正の整数を入れると  
69.    //先頭から指定した個数だけ分割します。  
70.    //このときTStringSplitOptions.ExcludeEmptyを指定すると  
71.    //空文字を無視して切り出します。  
72.    //TStringSplitOptionsを指定しない場合、あるいは  
73.    //TStringSplitOptions.Noneを指定した場合は  
74.    //空文字も1つとして切り出します。  
75.    //この場合はベルト・サタンも切り出します。  
76.    elm2 := s.Split([','],4,TStringSplitOptions.ExcludeEmpty);  
77.    write('overload3:');writeln(s);  
78.    for s1 in elm2 do  
79.    begin  
80.      writeln(s1);  
81.    end;  
82.    writeln;  
83.   
84.    //オーバーロードの4つ目、セパレータに文字列を指定する  
85.    //こともできます。  
86.    //この場合は、ドッペ,パッと,ニーナ,,ベルト・サタン,,キノッピー  
87.    //に分割されます。  
88.    //(セパレータにCRLFを指定することが可能です。)  
89.    elm2 := s.Split(['クン'],TStringSplitOptions.None);  
90.    write('overload4:');writeln(s);  
91.    for s1 in elm2 do  
92.    begin  
93.      writeln(s1);  
94.    end;  
95.    writeln;  
96.   
97.   
98.    //オーバーロードの5つ目、セパレータに文字列を指定したうえで  
99.    //分割した結果を取り出すことも可能です。  
100.    //この場合は、ドッペ,パッだけを取り出します。  
101.    //に分割されます。  
102.    elm2 := s.Split(['クン'],1,TStringSplitOptions.None);  
103.    write('overload5:');writeln(s);  
104.    for s1 in elm2 do  
105.    begin  
106.      writeln(s1);  
107.    end;  
108.    writeln;  
109.   
110.   
111.    readln;  
112.   
113.   
114.   except  
115.     on E: Exception do  
116.       Writeln(E.ClassName, ': ', E.Message);  
117.   end;  
118. end.  
119. </string></string>  

program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  s,s1 : string;
  elm : TArray;
  elm2 : TArray;
  //sh : TStringHelper;
begin
  try
    { TODO -oUser -cConsole メイン : ここにコードを記述してください }
   //sh : TStringHelper
   s := 'ドッペ,パックン,ニーナ,,ベルト・サタン,,キノッピー';
   //Writeln(s);

   //カンマで分割
   //オーバーロードの1つ目、第二引数に正の整数を入れると
   //先頭から指定した個数だけ分割します。
   //分割できる数以上の数を指定すると無視します。
   //この場合は、ドッペとパックンだけを切り出します。
   elm := s.Split([','],2);
   write('overload1:');writeln(s);
   //分割した要素を表示
   for s1 in elm do
   begin
     writeln(s1);
   end;

   writeln;

   //結合（念のため文字列を初期化)
   //s := '';
   //Writeln(s);

   //s := s.Join(',',elm);
   //Writeln(s);


   //オーバーロードの2つ目、第二引数に
   //TStringSplitOptions.ExcludeEmptyを指定すると
   //空文字を無視して切り出します。
   //TStringSplitOptionsを指定しない場合、あるいは
   //TStringSplitOptions.Noneを指定した場合は
   //空文字も1つとして切り出します。
   elm2 := s.Split([','],TStringSplitOptions.None);
   write('overload2-1:');writeln(s);
   for s1 in elm2 do
   begin
     writeln(s1);
   end;
   writeln;

   elm2 := s.Split([','],TStringSplitOptions.ExcludeEmpty);
   write('overload2-2:');writeln(s);
   for s1 in elm2 do
   begin
     writeln(s1);
   end;
   writeln;


   //オーバーロードの3つ目、第二引数に正の整数を入れると
   //先頭から指定した個数だけ分割します。
   //このときTStringSplitOptions.ExcludeEmptyを指定すると
   //空文字を無視して切り出します。
   //TStringSplitOptionsを指定しない場合、あるいは
   //TStringSplitOptions.Noneを指定した場合は
   //空文字も1つとして切り出します。
   //この場合はベルト・サタンも切り出します。
   elm2 := s.Split([','],4,TStringSplitOptions.ExcludeEmpty);
   write('overload3:');writeln(s);
   for s1 in elm2 do
   begin
     writeln(s1);
   end;
   writeln;

   //オーバーロードの4つ目、セパレータに文字列を指定する
   //こともできます。
   //この場合は、ドッペ,パッと,ニーナ,,ベルト・サタン,,キノッピー
   //に分割されます。
   //(セパレータにCRLFを指定することが可能です。)
   elm2 := s.Split(['クン'],TStringSplitOptions.None);
   write('overload4:');writeln(s);
   for s1 in elm2 do
   begin
     writeln(s1);
   end;
   writeln;


   //オーバーロードの5つ目、セパレータに文字列を指定したうえで
   //分割した結果を取り出すことも可能です。
   //この場合は、ドッペ,パッだけを取り出します。
   //に分割されます。
   elm2 := s.Split(['クン'],1,TStringSplitOptions.None);
   write('overload5:');writeln(s);
   for s1 in elm2 do
   begin
     writeln(s1);
   end;
   writeln;


   readln;


  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

で実際に実行した結果のビットマップが

です。

追伸：サンプルに使用した文字列がマイナーすぎたようなので、ちょっとだけわかりやすい
ものにしました。