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;

  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;