Criar uma dll com funções

Com o delphi aberto clique em File -> new -> other, escolha a pasta 'delphi projects' e selecione a opção dll winzard.

Library Funcoes;


Uses SysUtils,WinTypes,WinProcs;


{ Uma função que tira os espaços no início e no final de uma string }

Function Trim(J:String):String; Export;
Begin
If Length(J)>1 then
While (J[1]=' ') do
Begin
Delete(J,1,1);

If Length(J)<=1 then

J:='';

end;

Result :=J;

end;

Exports { Torna visivel para os programas }

Trim;

Begin

End.

Para usar num programa:

Unit Unit1;

Interface

uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

procedure FormClick(Sender: TObject);

private

public

end;

Var

Form1: TForm1;

Implementation

{ Declara a funcao }

Function Trim(J:String):String; External 'funcoes.dll';

{$R *.DFM}

Procedure TForm1.FormClick(Sender: TObject);

begin

Caption := Trim(' dicasdedelphi.blogspot.com '); { Note os espacos }

end;

As vantagens de colocar as funções em DLL são:

1. O programa exigirá menos memória

2. Você poderá reaproveitar as funções

3. Em alguns casos pode-se atualizar apenas as dll para um upgrade