GetTickDiff

[gargano]

Hallo

hat jemand den Code für GetTickDiff ?
Er ist normalerweise in IDGlobal, aber wenn ich den dazunehme,
bekomme ich lauter Compilerfehler.

Gruß
Gargano

[himitsu]

Sind bei dir denn keine Indy-Quellcodes vorhanden?

Was für Fehler?

Mathematik? (Differenz zwischen zwei Werten ... das könnte man bestimmt auch selber berechnen )


[add]

Delphi-Quellcode:

function GetTickDiff(const AOldTickCount, ANewTickCount: LongWord): LongWord;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
  {This is just in case the TickCount rolled back to zero}
  if ANewTickCount >= AOldTickCount then begin
    Result := ANewTickCount - AOldTickCount;
  end else begin
    Result := High(LongWord) - AOldTickCount + ANewTickCount;
  end;
end;

Wobei ich persönlich auch einfach den Überlauf ausnutzen würde.

Delphi-Quellcode:

function GetTickDiff(const AOldTickCount, ANewTickCount: LongWord): LongWord; inline;
begin
  Result := LongWord(ANewTickCount - AOldTickCount); // LongWord(), da ich nicht weiß, ob sich das Inline da richtig verhält
end;