.. wenn Du mit XE5 arbeitest, das kennt meines Erachtens noch keine Inline Variable.
Delphi-Quellcode:
constructor TXorShift32.Create;
begin
{$IFDEF MSWINDOWS}
var C: Int64;
if QueryPerformanceCounter(C) then
FSeed := UInt32(C)
else
{$ENDIF}
FSeed := TThread.GetTickCount;
end;
nach
Delphi-Quellcode:
constructor TXorShift32.Create;
var C: Int64;
begin
{$IFDEF MSWINDOWS}
if QueryPerformanceCounter(C) then
FSeed := UInt32(C)
else
{$ENDIF}
FSeed := TThread.GetTickCount;
end;
ändern.
Grüße
Klaus