Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.11;
Скачать: 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 вся ветка

Текущий архив: 2005.09.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
14-1123825588
PVOzerski
2005-08-12 09:46
2005.09.11
Как интерпретировать некоторые моменты вот такой лицензии?


8-1114548797
Tano
2005-04-27 00:53
2005.09.11
Формат ADPCM (4, 2 бита) - кто подскажет как проеобразовать в WAV


4-1122004287
Jet
2005-07-22 07:51
2005.09.11
Печать на принтер Olivetti PR2 из Дельфи


14-1124260101
Pazitron_Brain
2005-08-17 10:28
2005.09.11
Телефонные развлечения.


14-1124266807
Андрей Жук
2005-08-17 12:20
2005.09.11
Проблемы с Dual Channel DDR