Buscar por:

Colocando funções em uma dll

Código

//Edite diretamente no DPR, e depois salve como Funcoes.dpr:

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

While J[Length(J)]=#32 do Dec(J[0]);

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

{ Private declarations }

public

{ Public declarations }

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(' Visite sempre o Delphi Club '); { 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

}