Создание и подключение dll: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) (Новая: == Ссылки == *Особенности языка: продвинутый уровень *[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalAB...) |
Mikst (обсуждение | вклад) Нет описания правки |
||
Строка 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.