Создание и подключение dll: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) |
Mikst (обсуждение | вклад) |
||
(не показаны 2 промежуточные версии этого же участника) | |||
Строка 1: | Строка 1: | ||
Здесь используется упрощенный синтаксис dll - без деления на интерфейс и реализацию. | Здесь используется упрощенный синтаксис dll - без деления на интерфейс и реализацию. | ||
== MyDll.dll == | === MyDll.dll === | ||
Это код библиотеки dll. | Это код библиотеки dll. | ||
<source lang="Delphi">library MyDll; | <source lang="Delphi">library MyDll; | ||
Строка 16: | Строка 16: | ||
Self.s := s; | Self.s := s; | ||
end; | end; | ||
function ToString; override; | function ToString: string; override; | ||
begin | begin | ||
Result := s; | Result := s; | ||
Строка 29: | Строка 29: | ||
end.</source> | end.</source> | ||
== Main.pas == | === Main.pas === | ||
Это код основной программы | Это код основной программы | ||
<source lang="Delphi">{$reference mydll.dll} | <source lang="Delphi">{$reference mydll.dll} | ||
begin | begin | ||
writeln(PascalABCNET); | |||
writeln( | writeln(MyAdd(2,3)); | ||
writeln( | var m: My; | ||
m := new My('Hello'); | |||
writeln(m); | |||
end.</source> | end.</source> | ||
Текущая версия от 16:29, 5 марта 2010
Здесь используется упрощенный синтаксис dll - без деления на интерфейс и реализацию.
MyDll.dll
Это код библиотеки dll.
library MyDll;
const
PascalABCNET = 'PascalABC.NET';
type
My = class
private
s: string;
public
constructor (s: string);
begin
Self.s := s;
end;
function ToString: string; override;
begin
Result := s;
end;
end;
function MyAdd(a,b: integer): integer;
begin
Result := a + b;
end;
end.
Main.pas
Это код основной программы
{$reference mydll.dll}
begin
writeln(PascalABCNET);
writeln(MyAdd(2,3));
var m: My;
m := new My('Hello');
writeln(m);
end.