Home  |  Delphi .net Home  |  system.String  |  Join Method
Join  
Method  
Converts a string array into a string with a separator string between each
String Class
system NameSpace
CF1.  Function Join ( Separator:StringSeparator : String; ValueArray : Array of String; ) : String;
CF2.  Function Join ( Separator:StringSeparator : String; ValueArray : Array of String; Start : Integer; Count : Integer; ) : String;
CF : Methods with this mark are Compact Framework Compatible
Description
A new string is built containing an interleaving of all strings in a string array ValueArray with a fixed Separator string.
 
A subset of array strings may be used by starting at Start index, for Count strings (see the second example).
Notes
Very Important : Methods in .Net treat strings as starting at 0, unlike traditional Delphi where they started at 1. Likewise arrays (our example defines an array starting at 0, but an array starting at 1 or more will still be treated as a zero-indexed array by the Join method).
Microsoft MSDN Links
system
system.String
 
 
A simple example
// Full Unit code.
// -------------------------------------------------------------
// Create a new WinForm application, double click the form to
// create an OnLoad event, and then replace the WinForm unit
// with this text.
 
unit WinForm;
 
interface
 
uses
  System.Drawing, System.Collections, System.ComponentModel,
System.Windows.Forms, System.Data;
 
type
  TWinForm = class(System.Windows.Forms.Form)
  \{REGION 'Designer Managed Code'\} // Note that REGION and ENREGION should be prefixed by a dollar sign
  strict private
    ///
    /// Required designer variable.
    ///

    Components: System.ComponentModel.Container;
    ///
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    ///

    procedure InitializeComponent;
    procedure TWinForm_Load(sender: System.Object; e: System.EventArgs);
  {ENDREGION}
  strict protected
    ///
    /// Clean up any resources being used.
    ///

    procedure Dispose(Disposing: Boolean); override;
  private
    { Private Declarations }
  public
    constructor Create;
  end;
 
  [assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]
 
implementation
 
\{REGION 'Windows Form Designer generated code'\}
///
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
///

 
 
procedure TWinForm.InitializeComponent;
begin
  //
  // TWinForm
  //
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  Self.ClientSize := System.Drawing.Size.Create(292, 266);
  Self.Name := 'TWinForm';
  Self.Text := 'WinForm';
  Include(Self.Load, Self.TWinForm_Load);
end;
{ENDREGION}
 
procedure TWinForm.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;
 
constructor TWinForm.Create;
begin
  inherited Create;
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent;
  //
  // TODO: Add any constructor code after InitializeComponent call
  //
end;
 
procedure TWinForm.TWinForm_Load(sender: System.Object; e: System.EventArgs);
program Project1;
{$APPTYPE CONSOLE}

var
  strA, strB : String;
  strArray   : Array[1..3] of String;

begin
  strA := '---';

  strArray[1] := 'Hello';
  strArray[2] := 'cruel';
  strArray[3] := 'World';

  Console.WriteLine('strA = ' + strA);

  strB := System.String.Join(strA, strArray);

  Console.WriteLine('strB = ' + strB);

  Console.ReadLine;
end.
 
end.
Hide full unit code
  strA = ---
  strB = Hello---cruel---World
Using only a subset of the array strings
program Project1;
{$APPTYPE CONSOLE}

var
  strA, strB : String;
  strArray   : Array[0..6] of String;

begin
  strA := '---';

  strArray[0] := 'Zero';
  strArray[1] := 'One';
  strArray[2] := 'Two';
  strArray[3] := 'Three';
  strArray[4] := 'Four';
  strArray[5] := 'Five';
  strArray[6] := 'Six';

  Console.WriteLine('strA = ' + strA);

  // Use only array strings 2 to 4 (note that they start at 0)
  strB := System.String.Join(strA, strArray, 2, 3);

  Console.WriteLine('strB = ' + strB);

  Console.ReadLine;
end.
Show full unit code
  strA = ---
  strB = Two---Three---Four
 
 
Delphi Programming © Neil Moffatt All rights reserved.  |  Contact the author