Почему вылезает исключение и как от него избавиться?

[Abrokadawr]

Вот текст DLL:

library Project1;

uses
  SysUtils,
  Classes,Dialogs;

var SourceBlock:array[1..4,1..4] of array of char;
    AddedZn:integer;
    

{$R *.res}
Function EncryptText(var source:TStringList; key:string):string; stdcall;
var i,j:integer;
    buf:string;
begin
  buf:=source.Text;
  i:=0;

  while length(buf) mod 16 <> 0 do  //Дополняем текст до кратной длины
    begin
      buf:=buf+'0';
      inc(i);
    end;

  //AddedZn:=i;
  result:='5';
  //inttohex (ord(edit1.text[1]) xor ord(edit2.text[1]), 2));
end;

Exports EncryptText {,DecryptText};
begin
end.

Вот код ее использования:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


//const
  //{$WriteableConst On}
  //AddedZn:byte=0;
  //{$WriteableConst Off}

var
  Form1: TForm1;
  EncryptText:function(var source:TStringList; key:string):integer; stdcall;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var abc:TStringList;
    libHandle:HModule;
begin
  abc:=TStringList.Create;
  abc.Text:=form1.Memo1.lines.text;

  @EncryptText:=nil;
  libhandle:=LoadLibrary('project1.dll');
  @EncryptText:=GetProcAddress(libHandle, 'EncryptText');

  If @EncryptText <> nil then
  ShowMessage(inttostr(EncryptText(abc, '12345')))
  else showmessage('fddfb');

  //abc.Free;
  FreeLibrary(libHandle);
end;

end.

При нажатии на кнопку вылезает ексцепшн (скрин во вложении). Я вычислил, что его вызывает строчка "buf:=buf+'0';" в коде библиотеки. Почему вылезает исключение и как исправить код?

[Stilet]

sharemem в библиотеке используешь? Если нет то не используй в ней string.

[саша40]

У вас в dll массив нетак написан. Нужно вот так:

var SourceBlock:array[1..4][1..4] of char;

Вы посмотрите в dll, навернека, там много ошибок(в основном логических).

[Вадим Мошев]

Сообщение от саша40

У вас в dll массив нетак написан. Нужно вот так:

var SourceBlock:array[1..4][1..4] of char;

Вы посмотрите в dll, навернека, там много ошибок(в основном логических).

Не стал вникать, но хочу спросить: почему?
Двумерный массив имеет право быть объявленным вот так:

SourceBlock:array[1..4, 1..4] of char;

[Stilet]

хочу спросить: почему?

Потому что Саша так привык. Делфи и даже кажется паскаль 7 позволяет описывать так массивы в стиле а-ля Си.

[Sciv]

паскаль - нет. В паскале надо было бы :

array [1..4] of array [1..4] of char;