Создание и подключение dll: различия между версиями

Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Нет описания правки
Строка 28: Строка 28:
end.</source>
end.</source>
== Main.pas ==
== Main.pas ==
<source lang="Delphi">{$reference mydll.dll}
<source lang="Delphi">{$reference mydll.dll}
begin
begin
   PrintPascalABCNET;
   PrintPascalABCNET;

Версия от 20:57, 15 января 2010

Здесь используется упрощенный синтаксис dll - без деления на интерфейс и реализацию.

MyDll.dll

library MyDll;

const 
  PascalABCNET = 'PascalABC.NET';

type 
  My = class 
  private
    s: string;
  public  
    constructor (s: string);
    begin
      Self.s := s;
    end;
    function ToString; override;
    begin
      Result := s;
    end;
  end;

function MyAdd(a,b: integer): integer;
begin
  Result := a + b;
end;

end.

Main.pas

{$reference mydll.dll}
begin
  PrintPascalABCNET;
  writeln(n);
  writeln(add(2,3));
end.

Ссылки