JoinStringはないの？

VB6のJoin関数および.Net FrameworkのString.Joinメソッドは、
XEで追加されたほどSplitString使用頻度は多くないがたまに必要に
なることがある。

Help,ソースをざっくり見たところなさそうだったので実装してみた。
（といっても文字列を連結しただけですが・・・)

以下、ソースコード

view plainprint?

1. unit VbLikeStringUtil;  
2.   
3. interface  
4.   
5. uses  
6.   StrUtils,Types;  
7.   
8.   function JoinString(AStrings: TStringDynArray; Delemeter : String) : String;  
9.   
10. implementation  
11.   
12. uses  
13.   SysUtils;  
14.   
15. function JoinString(AStrings: TStringDynArray; Delemeter : String) : String;  
16. var  
17.   i : Longint;  
18. begin  
19.   
20.   Result := '';  
21.   for i := low(AStrings) to high(AStrings) do  
22.   begin  
23.     Result := Result + AStrings[i];  
24.     if i < high(AStrings) then Result := Result + Delemeter;  
25.   end;  
26.   
27.   
28. end;  
29.   
30. end.  

unit VbLikeStringUtil;

interface

uses
  StrUtils,Types;

  function JoinString(AStrings: TStringDynArray; Delemeter : String) : String;

implementation

uses
  SysUtils;

function JoinString(AStrings: TStringDynArray; Delemeter : String) : String;
var
  i : Longint;
begin

  Result := '';
  for i := low(AStrings) to high(AStrings) do
  begin
    Result := Result + AStrings[i];
    if i < high(AStrings) then Result := Result + Delemeter;
  end;


end;

end.

実際の使用方法のサンプルは、こんな感じ

view plainprint?

1. unit Unit1;  
2.   
3. interface  
4.   
5. uses  
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
7.   Dialogs, StdCtrls;  
8.   
9. type  
10.   TForm1 = class(TForm)  
11.     Button1: TButton;  
12.     Label1: TLabel;  
13.     procedure Button1Click(Sender: TObject);  
14.   private  
15.     { Private 宣言 }  
16.   public  
17.     { Public 宣言 }  
18.   end;  
19.   
20. var  
21.   Form1: TForm1;  
22.   
23. implementation  
24.   
25. uses  
26.   StrUtils,Types, VbLikeStringUtil;  
27.   
28. {$R *.dfm}  
29.   
30. procedure TForm1.Button1Click(Sender: TObject);  
31. var  
32.   JoinItems : TStringDynArray;  
33. begin  
34.   
35.   
36.   SetLength(JoinItems,5);  
37.   
38.   JoinItems[0] := 'イージス';  
39.   JoinItems[1] := 'ジャスティス';  
40.   JoinItems[2] := 'ザク';  
41.   JoinItems[3] := 'セイバー';  
42.   JoinItems[4] := 'グフ';  
43.   
44.   
45.   Label1.Caption := JoinString(JoinItems,'|');  
46.   
47.   
48. end;  
49.   
50. end.  

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  StrUtils,Types, VbLikeStringUtil;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  JoinItems : TStringDynArray;
begin


  SetLength(JoinItems,5);

  JoinItems[0] := 'イージス';
  JoinItems[1] := 'ジャスティス';
  JoinItems[2] := 'ザク';
  JoinItems[3] := 'セイバー';
  JoinItems[4] := 'グフ';


  Label1.Caption := JoinString(JoinItems,'|');


end;

end.