Buscar por:

Tempo de execução do programa

Código

//---- Exemplo -------

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  Hora: TDateTime; {Como mostro no EXEMPLO, declare na VAR

                    do form uma variável do tipo TDateTime}

implementation

{$R *.dfm}

{Se você quer saber quanto tempo seu programa foi

Executado, então veja como se deve fazer para obter

este resultado}

//Para iniciante em delphi (Fundamentalmento isso!)

Function fExecutando(N:TDateTime):String;

Var

Final: TDateTime;

begin

Final:= Time;

Result:= TimeToStr(Final-N);

end;

//------------------------------------------

{No Evento ONShow do form digite}

procedure TFormPri.FormShow(Sender: TObject);

begin

Hora:=Time;

end;

//----------------------------------

{1º - Coloque um Timer da PALETA (Guia) System

 2º - Coloque um StatusBar da PALETA (Guia) Win32

 3º - Dê dois cliques no StatusBar aparecerá um Editor

 de campos [ Editing StatusBar1.Panels ]

 4º - Clique no Botão ADD New (Insert)}

procedure TFormPri.Timer1Timer(Sender: TObject);

begin

StatusBar1.Panels[0].Text:= fExecutando(Hora);

end;

//Se alguém tem alguma dúvida e se eu puder ajudar

// Msn é marciliofhrn@hotmail.com

{Espero que eu tenha ajudo alguém e eu gostaria de

 de ouvir dicas também de como eu posso melhor}