[DCC Error] ZXing.StringUtils.pas(32): E2217 Published-Feld 'ASSUME_SHIFT_JIS' is neither class nor interface
[DCC Error] ZXing.StringUtils.pas(33): E2217 Published-Feld 'PLATFORM_DEFAULT_ENCODING' is neither class nor interface
Line 32 & 33
old
`
type
TStringUtils = class abstract
const
UTF8 = 'UTF-8';
EUC_JP = 'EUC-JP';
ISO88591 = 'ISO-8859-1';
class procedure ClassInit;
class var ASSUME_SHIFT_JIS: boolean;
class var PLATFORM_DEFAULT_ENCODING: string;
public
class var GB2312: string;
class var SHIFT_JIS: string;
class function guessEncoding(bytes: TArray;
hints: TDictionary<TDecodeHintType, TObject>): string; static;
end;
`
new
`
type
TStringUtils = class abstract
const
UTF8 = 'UTF-8';
EUC_JP = 'EUC-JP';
ISO88591 = 'ISO-8859-1';
class procedure ClassInit;
public
class var GB2312: string;
class var SHIFT_JIS: string;
class var ASSUME_SHIFT_JIS: boolean;
class var PLATFORM_DEFAULT_ENCODING: string;
class function guessEncoding(bytes: TArray;
hints: TDictionary<TDecodeHintType, TObject>): string; static;
Delphi 10.x unit ZXing.StringUtils
[DCC Error] ZXing.StringUtils.pas(32): E2217 Published-Feld 'ASSUME_SHIFT_JIS' is neither class nor interface [DCC Error] ZXing.StringUtils.pas(33): E2217 Published-Feld 'PLATFORM_DEFAULT_ENCODING' is neither class nor interface
Line 32 & 33
old ` type
TStringUtils = class abstract const UTF8 = 'UTF-8'; EUC_JP = 'EUC-JP'; ISO88591 = 'ISO-8859-1'; class procedure ClassInit; class var ASSUME_SHIFT_JIS: boolean; class var PLATFORM_DEFAULT_ENCODING: string; public class var GB2312: string; class var SHIFT_JIS: string; class function guessEncoding(bytes: TArray;
hints: TDictionary<TDecodeHintType, TObject>): string; static;
end; `
new ` type
TStringUtils = class abstract const UTF8 = 'UTF-8'; EUC_JP = 'EUC-JP'; ISO88591 = 'ISO-8859-1'; class procedure ClassInit;
public class var GB2312: string; class var SHIFT_JIS: string; class var ASSUME_SHIFT_JIS: boolean; class var PLATFORM_DEFAULT_ENCODING: string; class function guessEncoding(bytes: TArray;
hints: TDictionary<TDecodeHintType, TObject>): string; static;
end; `