View Single Post
  #94  
Old 12-06-2020, 12:31
BLACKFIRE69's Avatar
BLACKFIRE69 BLACKFIRE69 is offline
Registered User
 
Join Date: Mar 2019
Location: In the Hell
Posts: 688
Thanks: 481
Thanked 2,547 Times in 561 Posts
BLACKFIRE69 is on a distinguished road
Quote:
Originally Posted by Cesar82 View Post
@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:
Code:
begin
  FormatSettings := TFormatSettings.Invariant;
Changed To:

Code:
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.
Attached Images
File Type: png 3.png (63.0 KB, 264 views)
File Type: png 4.png (85.2 KB, 261 views)

Last edited by BLACKFIRE69; 12-06-2020 at 12:47.
Reply With Quote