Ошибка при присвоении tStringList

[Altera]

Привет всем!
Короче дело такое.
Программа состоит из EXE и несколькох DLL. При запуске в EXE формируется некий список someEXEList: tStringList.
Затем в EXE он без проблем присваевается someEXEComboBox: tComboBox

   someEXEComboBox.items := someEXEList;

потом он (someEXEList) передаётся в DLL как указатель и там присваивается переменой someDLLList: tStringList

   someDLLList := pSomeEXEList//: pointer;

Проблема в том, что если написать

someDLLComboBox{: tComboBox}.items := someDLLList;

или

someDLLComboBox.items := tStringList(pSomeEXEList);

То выскакивает ошибка


При этом я без проблем срабатывает функция

showMessage(someDLLList.strings[1])

и даже

someDLLList.add('someNewString');

, которая отлично добавляет строчку даже в someEXEComboBox.

Так в чём-же проблема? Мне надо, что-бы при изменении любого из
someEXEList
someDLLList
someEXEComboBox.items
someDLLComboBox.items

Менялись бы и все остальные.

p.s. не помогает даже

someDLLComboBox.items := tComboBoxStrings(someDLLList);

Компилятор говорит, что tComboBoxStrings - embarcadero знает что...

[Black Fregat]

Странно.. А если через задницу - Clear + AddStrings ?

[Evgeniy26]

TStringList(pSomeEXEList^)

[Altera]

Сообщение от Black Fregat

Странно.. А если через задницу - Clear + AddStrings ?

Через задницу мне не нужно. я ведь написал!

Сообщение от Evgeniy26

TStringList(pSomeEXEList^)

А через передницу не получается....

[Evgeniy26]

TStringList(pSomeEXEList) - это уж точно не сработает. Ты приводишь указатель к TStringList хотя его не разименовал ^.

[Altera]

Вот вам метод вызова

EXE

...
var someDllProcedure: procedure(const pList: pointer); stdCall
...
someDllProcedure(someEXEList);
...

DLL

procedure someDllProcedure(const pList: pointer); stdCall;
var
someDLLList: tStringList;
someDLLComboBox: tComboBox;
begin
   ...
   someDLLList := pList;
  
   someDLLComboBox := tComboBox.create(nil);
   someDLLComboBox.items := someDLLList ;
   ...     

end;

Ps. shareMem добавил в DPR exe и dll самым первым пунктом в uses

[Evgeniy26]

procedure someDllProcedure(const pList: pointer); stdCall;
var
someDLLList: tStringList;
someDLLComboBox: tComboBox;
begin
   ...
   someDLLList := tStringList(pList^);
  
   someDLLComboBox := tComboBox.create(nil);
   someDLLComboBox.items := someDLLList ;
   ...     

end;

Что такое - someEXEList.
Если это TStringList:

someDllProcedure(@someEXEList);

[Altera]

Сообщение от Evgeniy26

procedure someDllProcedure(const pList: pointer); stdCall;
var
someDLLList: tStringList;
someDLLComboBox: tComboBox;
begin
   ...
   someDLLList := tStringList(pList^);
  
   someDLLComboBox := tComboBox.create(nil);
   someDLLComboBox.items := someDLLList ;
   ...     

end;

Что такое - someEXEList.

Я щас пункт 3.1 буду нарушать ского.
Если бы было-бы так просто Я бы и сам допёр....



Для тех кто мне не верит вот:

[Daramant]

Altera
Мне надо, что-бы при изменении любого из
someEXEList
someDLLList
someEXEComboBox.items
someDLLComboBox.items

Менялись бы и все остальные.

Боюсь так не получится.
Причина: при присваивании:

ComboBox1.Items := StrLst;

происходит копирование данных, а не присваивание указателей (как ты , видимо, ожидал).
Попробуй пример:

procedure TForm1.Button1Click(Sender: TObject);
var
  StrLst: TStringList;
begin
  StrLst := TStringList.Create;
  StrLst.Add('1');
  ComboBox1.Items := StrLst;
  StrLst.Add('2');
end;

В ComboBox1 будет только 1.
Если заглянуть в исходники, там действительно увидим копирование данных.

Насчет ошибки.

Ошибка возникает из-за того, что класс TStringList из exe-файла и класс TStringList из dll - это разные классы.

При присваивании происходит проверка типов, они не совпадают и вылетает исключение:

procedure TPersistent.AssignTo(Dest: TPersistent);
begin
  Dest.AssignError(Self);
end;

Здесь обсуждалась эта проблема, только с TButton, но это не суть важно:
http://www.delphikingdom.com/asp/ans...IDAnswer=68178

[Altera]

Ну хорошо, ладно.... копируются данные а не указатель. Но вопрос по-прежнему остаётся.
Почему

someDLLComboBox{: tComboBox}.items := someDLLList{ tStringList};

в DLL выдаёт ошибку?