Дата публикации:

Join из Visual Basic в Delphi: как объединить элементы массива в строку

В Visual Basic существует функция Join, которая позволяет объединить элементы массива в одну строку с разделителем. Однако в Delphi такой функции нет. Но не отчаивайтесь, в Delphi также есть способы объединить элементы массива в строку.

Вот несколько способов, как можно реализовать аналог функции Join из Visual Basic в Delphi:

1. Использование функции ConcatStrings из библиотеки System.StrUtils:

uses
  System.StrUtils;

var
  arr: array of string;
  delimiter: string;
  resultString: string;
begin
  arr := ['element1', 'element2', 'element3'];
  delimiter := ', ';

  resultString := ConcatStrings(arr, delimiter);

  ShowMessage(resultString);
end;

2. Использование функции JoinStrings из библиотеки System.SysUtils:

uses
  System.SysUtils;

var
  arr: array of string;
  delimiter: string;
  resultString: string;
begin
  arr := ['element1', 'element2', 'element3'];
  delimiter := ', ';

  resultString := JoinStrings(arr, delimiter);

  ShowMessage(resultString);
end;

3. Ручное объединение элементов массива в строку:

var
  arr: array of string;
  delimiter: string;
  resultString: string;
  i: Integer;
begin
  arr := ['element1', 'element2', 'element3'];
  delimiter := ', ';

  resultString := '';
  for i := 0 to Length(arr) - 1 do
  begin
    resultString := resultString + arr[i];
    if i < Length(arr) - 1 then
      resultString := resultString + delimiter;
  end;

  ShowMessage(resultString);
end;

Таким образом, хоть в Delphi нет встроенной функции Join как в Visual Basic, но с помощью стандартных библиотек и ручного объединения элементов массива в строку можно легко достичь того же результата.