Open ndbn opened 9 years ago
TQRCodeEncoding = (qrAuto, qrNumeric, qrAlphanumeric, qrISO88591, qrUTF8NoBOM, qrUTF8BOM); ... if (EncodeOptions = 4) then begin // Add the UTF-8 BOM UTF8Version := #$EF#$BB#$BF + UTF8Encode(Content); ... if (EncodeOptions = 5) then begin // No BOM
qrUTF8NoBOM = 4 qrUTF8BOM = 5
TQRCodeEncoding = (qrAuto, qrNumeric, qrAlphanumeric, qrISO88591, qrUTF8NoBOM, qrUTF8BOM); ... if (EncodeOptions = 4) then begin // Add the UTF-8 BOM UTF8Version := #$EF#$BB#$BF + UTF8Encode(Content); ... if (EncodeOptions = 5) then begin // No BOM
qrUTF8NoBOM = 4 qrUTF8BOM = 5