Передача StringGrid в DLL

[Adamrus]

Здравствуйте.
Есть вопрос.
создал dll, в которую передаю объект StringGrid.

прототип в программе:

procedure Init(StringGrid1: TStringGrid); export; external 'dll.dll';

вызов в программе:

Init(StringGrid1);

Содержание dll:

library dll;
uses
  SysUtils,
  Grids;
{$R *.res}
procedure Init(sg1: TStringGrid);
begin
sg1.Cells[1,1]:=StrPas('?');
end;
exports Init;
end.

в ячейку (1,1) заносится '?', а при закрытии приложения вылетает ошибка
Invali Pointer Operathion

при передачи, к примеру, Memo, и в dll применят метод add к строкам все в порядке при закрытии.

[Stilet]

Попробуй procedure Init(var sg1: TStringGrid);

[Adamrus]

я пробовал по ссылке =(

Но, что интересно, в новом приложении с подключением функции из такой же dll все работает, а когда добавляю в свою прогу, пишу транслятор, вылетает ошибка при закрытии. Комментирую вызов, все в порядке )

[mutabor]

Объекты всегда передаются по ссылке, даже если это явно не указано.

А по поводу ошибки, погугли Invalid Pointer Operathion.

[Adamrus]

погуглил.
к сожалению, кроме размытых ответов ни чего не нашел.
Единственное - это то, что со строками в dll нужно осторожнее работать.
свойство cells не принимает PChar, да и строки из dll в прогу я передаю явно не больше 255 символов.
не пойму почему в Memo они уходят нормально, а StringGrid нет...

[mihali4]

А где у вас точка выхода из DLL?
Попробуйте добавить (для гарантированной выгрузки длль-ки):

library dll; //ну что за название - "dll"? Назовите хоть MyDLL...
uses
  SysUtils,
  Grids;
//{$R *.res} какие у вас тут ресурсы?!
{$E dll}

var
   MyExit: Pointer;     //точка выхода из DLL

procedure Init(sg1: TStringGrid);
begin
sg1.Cells[1,1]:=StrPas('?');
end;

procedure LibExit;
begin
ExitProc:=MyExit;
end;

exports Init;

begin
ExitProc:=@LibExit;
MyExit:=ExitProc;
LibExit; //это вроде необязательно
end;
end.

[Adamrus]

Попробовал так:

library dll;

uses
  Grids;

{$E dll}
var
   MyExit: Pointer;
   ch: char;

procedure Init(sg1: TStringGrid);
begin
  ch:='1';
  sg1.Cells[1,1]:=ch;
end;

procedure LibExit;
begin
  ExitProc:=MyExit;
end;
exports Init;

begin

  ExitProc:=@LibExit;
  MyExit:=ExitProc;
  LibExit;
// end; здесь не понял зачем end
end.

при вызове в основной программе все также
Init(StringGrid1);

при выходе все равно ошибка.

[Adamrus]

Я понимаю, что ошибка при выгрузке библиотеки, конкретно, при уничтожении указателя на нее, но вот незадача, стоит туда (в библиотечную процедуру) подавать только Memo, все в порядке, а при подаче туда StringGrid, на выходе из программы ошибка.
Отзовитесь.
Пишу транслятор с Qbasic, не охото инициализацию таблицы с ключевыми словами, разделителями и т.п. запихивать в основной код программы...