Форум: "Основная";
Текущий архив: 2005.09.11;
Скачать: [xml.tar.bz2];
Вниз
Массив 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c
