Работа с dll

[chingiz]

Доброго времени суток! Мне нужно в библиотеке (dll) сформировать TList который содержит TStringList, и полученный TList переслать в приложение и затем из TList данные перенести в TStringGrid. У меня ничего не получается, выдает такую ошибку
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EConvertError with message 'Cannot assign a TStringList to a TStringGridStrings'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
--------------------------
ничего не получается, кто с этим встречался подскажите в чем дело?

[uberchel]

Прежде чем , создавать тему с поверхностным содержанием, как мы должны узнать ,в уме приставить как там функции и процедуры у вас описаны а?, наверное надо исходный текст тоже выкладывать !

[chingiz]

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

Прежде чем , создавать тему с поверхностным содержанием, как мы должны узнать ,в уме приставить как там функции и процедуры у вас описаны а?, наверное надо исходный текст тоже выкладывать !

Прошу прощения, вот исходник - это просто проба, приложение гораздо сложнее, меня интересует - почему ошибка?

[uberchel]

Ну для начала, изменим концепцию и зачем передавать процедурой, как! ) надо функцией!

var
 templist: TstringList; //Глобально

function listik: TStringList;
var
  I: Integer;
begin
  templist:=tstringlist.Create;
  for I:= 1 to 5 do
  templist.Add(IntToStr(i));
  Result:= templist;
end;

//Освобождаем здесь:
begin
 templist.Free;
end.

и exe:

function listik: TStringList; external 'Project2.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
  strlist:tstringlist;
begin
  strlist:=tstringlist.Create;
  strlist.AddStrings(listik);
  StringGrid1.Rows[0]:= strlist;
  strlist.Free;
end;

[chingiz]

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

Ну для начала, изменим концепцию и зачем передавать процедурой, как! ) надо функцией!

var
 templist: TstringList; //Глобально

function listik: TStringList;
var
  I: Integer;
begin
  templist:=tstringlist.Create;
  for I:= 1 to 5 do
  templist.Add(IntToStr(i));
  Result:= templist;
end;

//Освобождаем здесь:
begin
 templist.Free;
end.

и exe:

function listik: TStringList; external 'Project2.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
  strlist:tstringlist;
begin
  strlist:=tstringlist.Create;
  strlist.AddStrings(listik);
  StringGrid1.Rows[0]:= strlist;
  strlist.Free;
end;

ну в общемто процедурой или функцией я не вижу разницы.
а вобще из твоего кода я взял много полезного
свой код я изменил следующим образом, и все заработало

var
templist: tstringlist;
............
templist.AddStrings(strlist);
StringGrid1.Rows[0]:=templist;

большое спасибо - вопрос решен

но меня всетаки интересует, почему мой первоначальный код не работает из dll, но работал из любого другого модуля?

[alexBlack]

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

но меня всетаки интересует, почему мой первоначальный код не работает из dll, но работал из любого другого модуля?

Потому, что TStrings в приложении и в dll - это два разных класса, поэтому Assign приводит к исключению. (Assign вызывается при присваивании Rows := ...)