fix macOS build

This commit is contained in:
Uladzimir Karpenka
2026-05-28 15:59:49 +03:00
parent 4f281ce400
commit 4f127a30ad
8 changed files with 51 additions and 17 deletions
+5 -5
View File
@@ -7,10 +7,10 @@ interface
uses
Classes, SysUtils, FlatButton, FlatEdit, FlatListBox, AppTheme, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, ComCtrls, IniFiles,
BoardUtils;
BoardUtils, PlatformUtils;
const
DEVICE_CFG_FILE = 'hpsdr_devices.ini';
DEVICE_CFG_NAME = 'hpsdr_devices.ini';
type
// Запись о сохранённом устройстве
@@ -355,9 +355,9 @@ var
Section: string;
begin
FSavedCount := 0;
if not FileExists(DEVICE_CFG_FILE) then Exit;
if not FileExists(GetAppCfgDir + DEVICE_CFG_NAME) then Exit;
Ini := TIniFile.Create(DEVICE_CFG_FILE);
Ini := TIniFile.Create(GetAppCfgDir + DEVICE_CFG_NAME);
try
N := Ini.ReadInteger('Devices', 'Count', 0);
SetLength(FSavedDevices, N);
@@ -381,7 +381,7 @@ var
I: Integer;
Section: string;
begin
Ini := TIniFile.Create(DEVICE_CFG_FILE);
Ini := TIniFile.Create(GetAppCfgDir + DEVICE_CFG_NAME);
try
Ini.WriteInteger('Devices', 'Count', FSavedCount);
for I := 0 to FSavedCount - 1 do