VPF::FillChar и динамический массив - Форум программистов

LionHeart

Дата 21.11.2007, 10:53 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 13.11.2007
Где: в Final Fantasy

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

Приветствую. smile

Такой вот фрагмент кода: (при помощи MAPI надо послать сообщение)

Код


var
  mapiReceips: array of TMAPIRecipDesc;
    receipCnt: Word;
    ...........................
    ...........................

Код


....................
....................
  receipCnt := lbxRecepients.Count;
  if receipCnt <> 0 then
    begin
      SetLength(mapiReceips,receipCnt);
      FillChar(mapiReceips,receipCnt * SizeOf(TMAPIRecipDesc),#0);

      for i := 0 to (receipCnt - 1) do
        with mapiReceips[i] do
          begin
            ulRecipClass := MAPI_TO;
            lpszName := PChar(lbxRecepients.Items.Strings[i]);
            lpszAddress := PChar('SMTP: ' + lbxRecepients.Items.Strings[i]);
          end;
    end
  else
    raise Exception.Create('No recepients added');
....................
....................

Я не понимаю почему не обнуляется динамический массив.
Если я закомментирую строку с FillChar,то все Ок.Но если оставляю,то он выдает мне ошибку времени выполнения,на строке ulRecipClass := MAPI_TO;
Это означает что я каким-то образом повреждаю массив до его использования,скорее всего этим FillChar.Пробовал определять отдельный тип данных в виде динамического массива,но тоже не катит.

PS.Вариант с поэлементным обнулением в цикле не рассматривается.

Это сообщение отредактировал(а) LionHeart - 21.11.2007, 10:55

MetalFan

Дата 21.11.2007, 10:56 (ссылка)

(голосов:1)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

Код


FillChar(mapiReceips[0], ...

стоит запомнить, что в Delphi переменная-дин.массив, переменная-объект,переменная-длин.строка - это указатели.

Это сообщение отредактировал(а) MetalFan - 21.11.2007, 10:58

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

There are always someone smarter than you...

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