Buscar por:

Colocando e usando funções em uma dll

Código

//Edite diretamente no DPR, e depois salve como Funções.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 em um 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}