CLS-DiskSpan (UltraARC replacement)

[BLACKFIRE69]

Originally Posted by Cesar82

@BLACKFIRE69
I got smaller sizes using DELPHI 10 Seattle.
From XE8 all functions/classes are coded without any changes.

Adaptation of DiskSpan R3 to work with old delphi (Delphi XE4...XE7)

Changhed this:

begin
  FormatSettings := TFormatSettings.Invariant;

Changed To:

var
  FormatSettings: TFormatSettings;
begin
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, FormatSettings);

Cesar,

I compiled it in Delphi Seattle without changing and changing the code, but it wasn't working.