Fórum como calcular o tempo que cada procedure leva para ser executada #611079

var
 HoraInicial, HoraFinal: TDateTime;

function CalculaTempoGasto(Inicio, Final: TDateTime): String;
begin
 return := FormatDateTime('hh:nn:ss.zzz', (Inicio- Final));
end;

var
 HoraInicial, HoraFinal: TDateTime;

function CalculaTempoGasto(Origem, Path: String; Inicio, Final: TDateTime);
var
 Arq: TextFile;
begin
 AssignFile(Arq, Path + '\\TempoExec.txt'); 
 Rewrite(Arq); 
 Write(Arq, Origem + ': ' + FormatDateTime('hh:nn:ss.zzz', (Inicio- Final))); 
 CloseFile(Arq); 
end;

HoraInicial := Now;

HoraFinal := Now;
CalculaTempoGasto('Nomedasuafuncaoouprecedimento', 'Ondevaisersalvootxt', HoraInicial, HoraFinal)

function CalculaExecucao(procedimento: TProcedure; nomeprocedure : String): int64;
var HoraInicial, HoraFinal: TDateTime;
  path : String;
  arq: TextFile;
begin
  HoraInicial := Now;
  procedimento;
  HoraFinal := Now;

  path := 'C:\\\\\\\\Posto';
  AssignFile(Arq, Path + '\\\\\\\\\\\\\\\\TempoExec.txt');
  Append(Arq); // Rewrite(Arq);
  Writeln(Arq, nomeprocedure + ': ' + FormatDateTime('hh:nn:ss:mm', (HoraInicial - HoraFinal)));
  CloseFile(Arq);
end;

type
  TProcedure = procedure; // funciona para qualquer procedure sem parametros
  TFunc1 = function(str: string): string; // funciona para qualquer funcao que receba uma string e retorne uma string

  // você terá de criar um tipo para cada função, com base em seus respectivos parametros e retorno.
  // a função abaixo reflete aquela que você publicou e vai funcionar para todas as funcoes que recebam a mesma
  // lista de parametros (considerando o tipo do parâmetro, não o nome) e tenham o mesmo tipo de retorno.
  TFunImport_dc_diaria = function(var FDL: TextFile; SP: TFDStoredProc; str_lida, Unidade, Periodo: string; importa: boolean): string;

procedure CalculaExecucao(procedimento: TProcedure; nomeprocedure: string); overload;
function CalculaExecucao(funcao: TFunc1; nomefuncao: string; Param1: string): string; overload;
function CalculaExecucao(funcao: TFunImport_dc_diaria; nomefuncao: string;
  var FDL: TextFile; SP: TFDStoredProc; str_lida, Unidade, Periodo: string; importa: boolean): string; overload;
procedure GravaTempo(nomerotina: string; tempoini, tempofim: TDateTime);

implementation

// procedure que calcula o tempo de execucao de qualquer procedure que não tenha parâmetros
procedure CalculaExecucao(procedimento: TProcedure; nomeprocedure: string);
var
  tempoini, tempofim: TDateTime;
begin
  tempoini := now();
  procedimento;
  tempofim := now();

  GravaTempo(nomeprocedure, tempoini, tempofim);
end;

// funcao calcula o tempo de execucao de qualquer funcao que receba um parâmetro string e retorne uma string
function CalculaExecucao(funcao: TFunc1; nomefuncao: string; Param1: string): string; overload;
var
  tempoini, tempofim: TDateTime;
  resultado: string;
 begin
  tempoini := now();
  resultado := funcao(Param1);
  tempofim := now();

  GravaTempo(nomefuncao, tempoini, tempofim);

  result := resultado;
end;

// funcao que calcula o tempo de execução de qualquer função com as seguintes características:
// - Parâmetros: TextFile, TFDStoredProc, string, string, string, boolean
// - Result: string
function CalculaExecucao(funcao: TFunImport_dc_diaria; nomefuncao: string;
  var FDL: TextFile; SP: TFDStoredProc; str_lida, Unidade, Periodo: string; importa: boolean): string; overload;
var
  tempoini, tempofim: TDateTime;
  resultado: string;
begin
  tempoini := now();
  resultado := funcao(FDL, SP, str_lida, Unidade, Periodo, importa);
  tempofim := now();

  GravaTempo(nomefuncao, tempoini, tempofim);

  result := resultado;
end;

// grava no arquivo TempoExec.txt o intervao de tempo entre tempoini e tempofim.
// separei numa função específica porque todas as versões de CalculaExecucao() precisam deste trecho.
procedure GravaTempo(nomerotina: string; tempoini, tempofim: TDateTime);
var
  valor, horas, minutos, segundos: Integer;
  resultado: string;
  arq_tempo: TextFile;
begin
  valor := (SecondsBetween(tempoini, tempofim));
  horas := valor div 3600;
  minutos := valor div 60 - horas * 60;
  segundos := (valor - (horas *3600 + minutos * 60))+1;
  Resultado := Format('%0.2d:%0.2d:%0.2d', [horas, minutos, segundos]);

  AssignFile(arq_tempo, gsAppPath+'TempoExec.txt');
  Append(arq_tempo);
  Writeln(arq_tempo, nomerotina + ': ' + resultado);
  CloseFile(arq_tempo);
end;

begin
  CalculaExecucao(exporta_GP_Dia, 'exporta_GP_Dia');
  str_Diario := CalculaExecucao(import_dc_diaria, 'import_dc_diaria', FD_Diario, SPGenerica, str_Diario, LblUnidade.Caption, LblPeriodo.Caption, true);
end;