Làm thế nào để sử dụng TFormatSettings.Create mà không được cụ thể cho một nền tảng?

Question

Tôi có sau trong Delphi XE:

fSettings := TFormatSettings.Create(LOCALE_USER_DEFAULT); 

Nhưng tôi luôn có được một cảnh báo trên biên dịch:

W1002 Symbol 'Create' is specific to a platform 

cách chính xác để làm điều này là gì, vì vậy mà tôi không nhận được một cảnh báo ?

Answer 1

Bạn có hai lựa chọn

1) Sử dụng phiên bản quá tải trong đó sử dụng một chuỗi thay vì một TLocaleID

class function Create(const LocaleName: string): TFormatSettings; overload; static; 

2) Vô hiệu hóa cảnh báo địa phương

{$WARN SYMBOL_PLATFORM OFF} 
    fSettings := TFormatSettings.Create(LOCALE_USER_DEFAULT); 
{$WARN SYMBOL_PLATFORM ON} 

Answer 2

Có các tình trạng quá tải khác nhau của TFormatSettings.Create. Cái có LCID là đặc trưng cho Windows. Người không có tham số và người tham gia một tên miền địa phương dưới dạng một chuỗi có thể di động hơn.

Hoặc bạn có thể chặn cảnh báo cho các đơn vị và quy trình cụ thể cho nền tảng, nếu bạn biết phần mềm của mình sẽ không bao giờ được sử dụng cho bất kỳ thứ gì khác ngoài Delphi cho Windows. VCL chứa dấu vết của các nền tảng không được hỗ trợ như Linux (Kylix) và .NET (Delphi.NET), và vì chúng có thể chết, làm cho mã của bạn di động với các nền tảng đó có thể lãng phí thời gian.

Answer 3

Mã của tôi hiện nay là được viết như sau:

{$IFDEF VER220} 
    FormatSettings := TFormatSettings.Create(GetThreadLocale); 
{$ELSE} 
    GetLocaleFormatSettings(GetThreadLocale, FormatSettings); 
{$ENDIF} 

Bạn có thể sẽ muốn điều chỉnh IFDEF đó cho các phiên bản tương lai thích hợp, nhưng nó đưa ra ý tưởng.