Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Синтаксис
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.08.2013, 16:40
icegood icegood вне форума
Прохожий
 
Регистрация: 17.03.2013
Сообщения: 20
Версия Delphi: Delphi XE3
Репутация: 10
По умолчанию приведение типов открытых массивов

Неприятно был удивлен, что типы из сабжа неприводимы...

Код:
class function TMSDataSetUtils.GetArrayOfDataSetsAsObj(const ADataSets: array of Tobject): TArrayOfObjects;
...


class function TMSDataSetUtils.GetArrayOfDataSets(const ADataSets: array of TCustomMSDataSet): TArrayOfMSDataSets;
begin
 // Result := 
GetArrayOfDataSetsAsObj(ADataSets); //<-- E2008 Incompatible types

end;

как лечится?

Последний раз редактировалось M.A.D.M.A.N., 09.10.2013 в 07:57.
Ответить с цитированием
  #2  
Старый 11.08.2013, 21:33
ikv_2006 ikv_2006 вне форума
Прохожий
 
Регистрация: 06.05.2009
Сообщения: 7
Репутация: 10
По умолчанию

открытый массив и динамический совместимы только в одну сторону — динамический массив можно передавать, как открытый.
А вот из открытого сделать динамический почему-то, действительно, не даёт ((
Это тем более странно, что дельфи умеет делать и более сложные вещи — присваивание variant-массива динамическому и наоборот
Ответить с цитированием
  #3  
Старый 08.10.2013, 08:43
phomm phomm вне форума
Новичок
 
Регистрация: 07.10.2013
Адрес: Тюмень
Сообщения: 50
Версия Delphi: 7/2007/XE+/FPC
Репутация: 22
По умолчанию

Цитата:
Сообщение от icegood
class function TMSDataSetUtils.GetArrayOfDataSetsAsObj(const ADataSets: array of Tobject): TArrayOfObjects;
...
class function TMSDataSetUtils.GetArrayOfDataSets(const ADataSets: array of TCustomMSDataSet): TArrayOfMSDataSets;
begin
// Result :=
GetArrayOfDataSetsAsObj(ADataSets); //<-- E2008 Incompatible types
Мне думается, проблема в присвоении в сущность типа TArrayOfMSDataSets значения типа TArrayOfObjects
А сама передача массива тут ни при чём.
Можно попробовать хак в виде явного незащищённого каста:
Код:
Result := TArrayOfMSDataSets(GetArrayOfDataSetsAsObj(ADataSets));
или даже более опасный каст
Код:
TArrayOfObjects(Result ):= GetArrayOfDataSetsAsObj(ADataSets);
Но за результат сложно ручаться, скорее всего также будет инкомпатибл тайпс... Тогда наверное надо будет писать подпрограмму-переводник.

Проблема то хоть решилась ? А то я тут чутка некрю.

Последний раз редактировалось phomm, 08.10.2013 в 08:45.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:46.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter