Come utilizzare TFormatSettings.Create senza essere specifico per una piattaforma?

Question

Ho la seguente in Delphi XE:

fSettings := TFormatSettings.Create(LOCALE_USER_DEFAULT); 

ma ottengo sempre un avvertimento sulla compilazione:

W1002 Symbol 'Create' is specific to a platform 

Qual è il modo corretto di fare questo, in modo che non ottengo un avvertimento ?

Answer 1

si hanno due opzioni

1) utilizzare la versione sovraccarico che utilizza una stringa invece di un TLocaleID

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

2) disattivare l'avviso localmente

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

Answer 2

Ci sono diversi sovraccarichi di TFormatSettings.Create. Quello con un LCID è specifico per Windows. Quello senza parametri e quello che prende un nome di locale come una stringa sono più portabili.

Oppure si potrebbe sopprimere l'avviso per unità e procedure specifiche della piattaforma, se si sa che il software non verrà mai utilizzato per scopi diversi da Delphi per Windows. Il VCL contiene tracce di piattaforme ora non supportate come Linux (Kylix) e .NET (Delphi.NET), e dal momento che sono morti come può essere, rendere il tuo codice portatile su quelle piattaforme può essere una perdita di tempo.

Answer 3

Il mio codice è ora scritto come segue:

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

Probabilmente si vorrà regolare l'IFDEF per le future versioni appropriate, ma ciò darà l'idea.