| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

DVM ©   (2005-08-22 17:25:00) 

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

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;

---

DVM   (2005-08-22 19:01:00) [1]

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

---

Alexander Panov   (2005-08-22 18:54:00) [2]

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

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

---

jack128   (2005-08-22 18:52:00) [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));

---

DVM   (2005-08-22 17:39:00) [4]

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

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

---

begin...end   (2005-08-22 17:32:00) [5]

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

---

Наверх