Преобразовать массив Char в строку?

Как преобразовать массив из char в строку?

У меня есть нормальный массив символов, и я хочу преобразовать его значения в строку. Как я могу это сделать?

Изменить: Первоначально этот вопрос задавался вопросом о "массиве строки в строку", но OP принял ответ, в котором указан "массив из char, в строку".

Ответ 1

Кажется, что у вас есть текст в array of char. Если это так, вы можете сделать это:

function ArrayToString(const a: array of Char): string;
begin
  if Length(a)>0 then
    SetString(Result, PChar(@a[0]), Length(a))
  else
    Result := '';
end;

С другой стороны, может быть, вы задаете совершенно другой вопрос.

Ответ 2

function ArrayToString(const Data: array of string): string;
var
  SL: TStringList;
  S: string;
begin
  SL := TStringList.Create;
  try
    for S in Data do
      SL.Add(S);
    Result := SL.Text;
  finally
    SL.Free;
  end;
end;

Вот как я понимаю, что вы просите. Однако, возможно, решение Дэвида - это то, что вы хотите. Вы решаете.