terça-feira, 29 de setembro de 2009

Colocando funções em uma dll

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;
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(' Teste e divirta-se '); { Note os espacos }
end;

Nenhum comentário:

Postar um comentário