Hvor lang tid?

StartTime = Now;
....
HvorLangTidErDerGaaet = Now() - StartTme;

ok.. det er noget lignende det..

hvad hvis jeg vil have det i sekunder? fx..

"Søgningen tog 2,7 sekunder"

så skal jeg der vel regnes milisekunder ud og sager.. Hvordan gør jeg det?

tjaa, for du resultatet i milisekunder så prøv at gange med 1000

Det gør jeg ikke jo.

StartTime = GetTickCount;
....
HvorLangTidErDerGaaet = (GetTickCount - GetTickCount) * 1000;

/ZIRON

ziron.. kører delphi 5 :|

den funktion er ik i help filen

jeg bruger min egen klasse :
unit Unit2;

interface

uses
Windows, SysUtils;

type
  TMeasurement = (Seconds, Cycles);
  TFastTime = class(TObject)
  private
    Frequency, StartTime, EndTime: Int64;
    RDTSC_START, RDTSC_STOP : Comp;
    FElapsedTime : String;
    fMeasurement : TMeasurement;
    Function GetTimeStamp : Int64;
  public
    Property ElapsedTime : String read FElapsedTime;
    Procedure Start(Measurement : TMeasurement = Seconds);
    Procedure Stop;
end;

implementation

function TFastTime.GetTimeStamp: Int64;
var
  TimeStamp : Record
    case byte of
      1 : (Whole: Int64);
      2 : (LO, HI : longint);
    end;
begin
  asm
    db $0F;
    db $31;
    mov [TimeStamp.LO], eax
    mov [TimeStamp.HI], edx
  end;
  Result:=TimeStamp.Whole;
end;

Procedure TFastTime.Start(Measurement : TMeasurement = Seconds);
begin
  fMeasurement := Measurement;
  if Measurement = Seconds then
  begin
    QueryPerformanceFrequency(Frequency);
    QueryPerformanceCounter(StartTime);
  end
  else
    RDTSC_START := GetTimeStamp;
end;

Procedure TFastTime.Stop;
begin
  if fMeasurement = Seconds then
  begin
    QueryPerformanceCounter(EndTime);
    FElapsedTime:= format('Seconds: %g', [(EndTime - StartTime)/ Frequency]);
  end
  else
  begin
    RDTSC_STOP := GetTimeStamp;
    FElapsedTime:= format('Clock Cycles: %.0n', [RDTSC_STOP - RDTSC_START]);
  end;
end;
end.


Jens B

?

hmm jens du er sku for syg til mig og hvorfor du ikke skulle have point ved jeg ikke, men må man godt dele hvis man synes. eller er det mod reglerne, kan sku ikke huske med E3?

/ZIRON

nej det var sq ikke så meget det .. Det var mere en begrundelse jeg efterlyste ....  Jer er her (på eksperten) ikke for at få point .. Jeg er her fordi jeg synes det er sjovt ....

Har du været inde og stemme på www.ekspertenfest.dk ?

Jens B

jens det er jeg klar over. men alligevel, point er lidt lige meget...

men lad os vente og se om der sker noget og jeg kigger lige på linket...

/ZIRON