Artigos Delphi Quick Tips : Seções Initialization e Finalization do Delphi



Olá galera, nesta Quick Tips irei falar sobre as seções Initialization e Finalization. São executadas no momento que sua aplicação é iniciada, e a outra quando é finalizada, fiz um rápido exemplo bem prático.

 

unit uPrincipal;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

 

type

  TForm1 = class(TForm)

  private

    { Private declarations }

  public

    { Public declarations }

 

  end;

 

var

  Form1: TForm1;

  X : Integer;

implementation

 

{$R *.dfm}

 

Initialization

  X := 10;

  ShowMessage(IntToStr(x));

 

Finalization;

 X := 9;

 ShowMessage(IntToStr(x));

 

end.

 

 

Observe que ao executar o programa logo iremos ver a mensagem 10, e ao fechar nosso form iremos ver a mensagem 9, estes podem ser usados para iniciar um objeto por exemplo, e ao final destruir o mesmo, por exemplo.

 

Fico por aqui ate a próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br