SplitとJoin

Delphi XE3で新たに導入されたStringHelperを使ってみた。 使ったのはJoinとSplit。
それぞれ一番簡単な呼び出し形式です。
以下、プログラム

view plainprint?

1. unit Unit1;  
2. program Project1;  
3.   
4. {$APPTYPE CONSOLE}  
5.   
6. {$R *.res}  
7.   
8. uses  
9.   System.SysUtils;  
10.   
11. var  
12.   s : string;  
13.   elm : TArray<string>;  
14.   //sh : TStringHelper;  
15. begin  
16.   try  
17.     { TODO -oUser -cConsole メイン : ここにコードを記述してください }  
18.    //sh : TStringHelper  
19.    s := 'キャサリン,さをり,ツネアキ,ハゲミーナ,ヒデオ';  
20.    Writeln(s);  
21.   
22.    //カンマで分割  
23.    elm := s.Split([',']);  
24.   
25.    //分割した要素を表示  
26.    for s in elm do  
27.    begin  
28.      writeln(s);  
29.    end;  
30.   
31.    //結合（念のため文字列を初期化)  
32.    s := '';  
33.    s := s.Join(',',elm);  
34.   
35.    Writeln(s);  
36.    readln;  
37.   
38.   
39.   
40.   except  
41.     on E: Exception do  
42.       Writeln(E.ClassName, ': ', E.Message);  
43.   end;  
44. end.  
45. </string>  

unit Unit1;
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  s : string;
  elm : TArray;
  //sh : TStringHelper;
begin
  try
    { TODO -oUser -cConsole メイン : ここにコードを記述してください }
   //sh : TStringHelper
   s := 'キャサリン,さをり,ツネアキ,ハゲミーナ,ヒデオ';
   Writeln(s);

   //カンマで分割
   elm := s.Split([',']);

   //分割した要素を表示
   for s in elm do
   begin
     writeln(s);
   end;

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

   Writeln(s);
   readln;



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

で実際に実行した結果が、

です。