Delphi 6 форматирование uLkJson.pas

#delphi #delphi-6

#delphi #delphi-6

Вопрос:

У меня проблема в проекте, который я взял на себя. uLkJSON.pas используется, но проблема в том, что TFormatSetting функция отсутствует в версии модуля Delphi 6 SysUtils . Можно ли это обновить?

Проблема возникает в точке:

 uses windows,
  SysUtils,
{$IFNDEF KOL}
  classes,
{$ELSE}
  kol,
{$ENDIF}
  variants;

type
  TlkJSONtypes = (jsBase, jsNumber, jsString, jsBoolean, jsNull,
    jsList, jsObject);

class function TlkJSON.GenerateText(obj: TlkJSONbase): string;
var
{$IFDEF HAVE_FORMATSETTING}
  fs: TFormatSettings;
{$ENDIF}
 

Комментарии:

1. Придирка: TFormatSettings это не функция, а тип. Тип записи, если быть точным.

2. Я бы задался вопросом, используете ли вы правильную версию Delphi для компиляции этого. На вашем месте я бы немного покопался, чтобы определить эту важную информацию.

3. Вы предполагаете uLkJSON.pas , что это не работает даже с HAVE_FORMATSETTING undefined? Пожалуйста, проясните реальную проблему.