Передача строки-как параметра-переменной

[Sibedir]

Может надо как-то память освободить или что-то подобное?

Да, по всей видимости ошибка связана с неправельным освобождением памяти. Внимательней отнеситесь к вызову диструкторов объектов. Это наврят ли связано с подключением ShareMem. В таких случаях бывает, что ошибка то появляется, то нет.

[JTG]

Ну вы и намудрили, в первом посте всё просто - не хватает reset(f1) и {$APPTYPE CONSOLE} и, самое главное, ShareMem в uses НА ПЕРВОМ МЕСТЕ (это важно).

[Sibedir]

Ну вы и намудрили, в первом посте всё просто - не хватает reset(f1)

Но если бы дело было в этом, то ошибка вылетила бы сразу при readln(f1,s1[i]);. А тут она при завершении программы вылетает. Или я не прав?

самое главное, ShareMem в uses НА ПЕРВОМ МЕСТЕ (это важно).

Точно так. Я вообще так и таписал в примере, но забыл уторчнить, а это действительно важно.

[JTG]

Либа

library Project1;

type
  PArray = ^TArray;
  TArray = array [1..50] of string;

{$R *.res}

Function ReadContent(var buffer: PArray; var count: integer):boolean; stdcall;
var f: TextFile;
    i:integer;
begin
  AssignFile(f,'C:\jlink.log');
  i:=0;
  Reset(f);
  repeat
    inc(i);
    readln(f,buffer^[i]);
  until eof(f);
  count:=i;
  CloseFile(f)
end;

exports
   ReadContent;

begin
end.

Прога

program Project1;

{$APPTYPE CONSOLE}

type
  PArray = ^TArray;
  TArray = array [1..50] of string;

var
  j, count: integer;
  data: PArray;

  Function ReadContent(var buffer: PArray; var count:integer):boolean; stdcall; external 'project1.dll';

begin
  New(data);

  ReadContent(data, count);
  for j:=1 to count do writeln(data^[j]);
  readln;

  Dispose(data);
end.

В либу передаётся только указатель на область памяти, так что sharemem тут (наверно) не нужен