Zitat von
Hawkeye219:
Hallo Emil,
Zitat von
EWeiss:
Delphi-Quellcode:
if not StartMilliseconds <> 0 then
StartMilliseconds := GetTickCount();
Ich glaube, was du wirklich erreichen willst ist das:
Delphi-Quellcode:
if not (StartMilliseconds <> 0) then
StartMilliseconds := GetTickCount();
oder noch besser:
Delphi-Quellcode:
if (StartMilliseconds = 0) then
StartMilliseconds := GetTickCount();
NOT bindet stärker als ein Vergleich und wird somit zuerst ausgewertet.
Gruß Hawkeye
Was ich erreichen möchte das mir ein realer Single wert übergeben wird..
Delphi-Quellcode:
function GetTimes: single;
Var
sng : Single;
begin
if not StartMilliseconds <> 0 then
StartMilliseconds := GetTickCount();
CurrentMilliseconds := GetTickCount();
sng := (CurrentMilliseconds - StartMilliseconds) / 1000.0;
Result := sng;
end;
so ist der wert immer 0
Delphi-Quellcode:
function GetTimes: single;
Var
sng : Single;
begin
if not StartMilliseconds <> 0 then
StartMilliseconds := GetTickCount();
CurrentMilliseconds := GetTickCount();
sng := (CurrentMilliseconds - StartMilliseconds / 1000.0);
Result := sng;
end;
So immer DWORD oder integer keinesfalls Single das würde einen kommawert
zurückliefern.
Beides funktioniert irgendwie nicht.
Wenn ich keinen single wert bekomme dann lößt sich mein Peak nicht
von den Spectrum balken..
sehr seltsam das ganze.
gruss Emil