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

Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
(Новая: == Ссылки == *Особенности языка: продвинутый уровень *[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalAB...)
 
Нет описания правки
Строка 1: Строка 1:
Здесь используется упрощенный синтаксис dll - без деления на интерфейс и реализацию.
== MyDll.dll ==
<source lang="Delphi">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.</source>
== Main.pas ==
<source lang="Delphi">{$reference mydll.dll}
begin
  PrintPascalABCNET;
  writeln(n);
  writeln(add(2,3));
end.</source>
== Ссылки ==
== Ссылки ==
*[[Особенности языка: продвинутый уровень]]
*[[Особенности языка: продвинутый уровень]]
*[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalABC.NET: Особенности языка]
*[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalABC.NET: Особенности языка]

Версия от 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.

Ссылки