Einzelnen Beitrag anzeigen

Klaus01
Online

Registriert seit: 30. Nov 2005
Ort: München
5.767 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Kann Rudy's Big Number library nicht kompilieren…

  Alt 14. Mai 2023, 10:41
.. 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
Klaus
  Mit Zitat antworten Zitat