GetTickDiff

[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;