VPF::Ваше мнение по поводу ошибки в функции???

_Ramzes_

Дата 30.6.2007, 19:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 3.3.2007
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Привет!
Подскажите мне, где здесь ошибка:

type
  TWordArray = array[Byte] of Word;
  TDynWordArray = array of Word;

function CopyArray(a : TDynWordArray) : TWordArray;
begin
  FillChar(Result, SizeOf(Result), 0);
  Move(a[0], Result[0], SizeOf(a));
end;

Заранее благодарен.

valentos

Дата 30.6.2007, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 7.12.2006
Где: Belarussia, Gomel

Репутация: нет
Всего: 2

Из динамического в статический массив элементы загоняются только через указатель!

--------------------

[code=sql]select name, telephone from Girls where age between 20 and 25 and (.)(.) >= 2 order by IQ desc [/code]

Alexeis

Дата 1.7.2007, 11:59 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

_Ramzes_, используйте подсветку кода http://forum.vingrad.ru/index.php?show_typ...howtopic=126445
Отредактируйте пост.

Ошибка тут SizeOf(Result). Result это указатель т.е. SizeOf(Result) = 4. Вообще, для получения размера массивов используйте следующую конструкцию
SizeOf(<элемент массива (атомарный тип или структура)>) * <число элементов>

Для всего остального использовать SizeOf не желательно.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »