Массив of Char в строку способы

← →
DVM © (2005-08-22 17:25) [0]

Может вопрос глупый, но есть ли еще способы кроме?

function ArrayToStr(str: array of char): string;
var
i: Integer;
begin
Result := "";
for i := 0 to SizeOf(str) - 1 do Result := Result + str[i];
end;

← →
begin...end © (2005-08-22 17:32) [1]

Неужели Result := str ?

← →
DVM © (2005-08-22 17:39) [2]

> begin...end © (22.08.05 17:32) [1]

Тьфу. :) Все баста. Домой пора.

← →
jack128 © (2005-08-22 18:52) [3]

begin...end © (22.08.05 17:32) [1]
Result := str
Кстати, очень неочевидный синтаксис, я бы сам никогда не догадался присвоить массив строке..
DVM © (22.08.05 17:25)
for i := 0 to SizeOf(str) - 1 do Result := Result + str[i];
За такое - головы рубить.

SetLength(Result, High(str) + 1); if Result <> "" then Move(Str[0], Result[1], Length(Result) * SizeOf(Char));

спасибо всем.

Массив of Char в строку способы Найти похожие ветки