Скачать: CL | DM;

Массив 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));

---

← →
Alexander Panov ©   (2005-08-22 18:54) [4]

jack128 ©   (22.08.05 18:52) [3]
SetLength(Result, High(str) + 1);

хм.
SetLength(Result, Length(str));?

---

← →
DVM ©   (2005-08-22 19:01) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c