Kann man irgendwie "einfach" entscheiden, mit welcher Sprachversion der Delphi-Compiler grade compiliert?
BDSSetLang > Bibliothekssprache
Die Grundidee besteht darin, eigene Konstanten in der selben Sprache wie die
RTL/
VCL mitzugeben.
Erster billiger Versuch war,
Delphi-Quellcode:
uses
SysConst;
resourcestring
{$IF SUnknown = '<unbekannt>'}
{$DEFINE LANG_DE}
SAccessDenied = '
Zugriff verweigert';
{$ELSEIF SUnknown = '<inconnu>'}
{$DEFINE LANG_FR}
SAccessDenied = '
Accès refusé';
{$ELSEIF SUnknown = '<未知>'}
{$DEFINE LANG_JA}
SAccessDenied = '
アクセス拒否';
{$ELSE SUnknown = '<unknown>'}
{$DEFINE LANG_EN}
SAccessDenied = '
Access denied';
{$ENDIF}
was aber natürlich nicht ging, denn
Delphi-Quellcode:
const
X = 'abc';
Y: string = 'abc';
resourcestring
Z = 'abc';
{$IF X = 'abc'} {$IFEND} // geht
{$IF Y = 'abc'} {$IFEND} // [dcc32 Fehler] E2026 Konstantenausdruck erwartet
{$IF Z = 'abc'} {$IFEND} // [dcc32 Fehler] E2026 Konstantenausdruck erwartet
Und ich hab überall nur Resourcestrings gefunden. (System.SysConst, System.RTLConsts, FMX.Consts usw.)
Ideal wäre ein Compilerschalter (DEFINE) oder eine Konstante ala CompilerVersion/RTLVersion, welches direkt vom Compiler kommt.
Grade eben hab ich zumindestens einwas hinbekommen, daß sich dann so auswerten liese:
Delphi-Quellcode:
{$IFDEF LANG_DE}
*
{$ENDIF}
bzw.
Delphi-Quellcode:
{$IF Defined(LANG_DE)}
SAccessDenied = '
Zugriff verweigert';
{$ELSEIF Defined(LANG_FR)}
SAccessDenied = '
Accès refusé';
{$ELSEIF Defined(LANG_JA)}
SAccessDenied = '
アクセス拒否';
{$ELSE Defined(LANG_EN)}
SAccessDenied = '
Access denied';
{$ENDIF}
Aber für eine Fremdkomponente ohne Installer ist es halt etwas unpraktisch, wenn man erst
LANG_$(LangDir)
in Projektooptionen > Delphi-Compiler > Bedingungen einfügen muß.
Auch der "offizielle" Weg ist bissl unpraktisch, also wo man für die zwei Strings jeweils mehrere Units erstellt, diese in Unterverzeichnisse verfrachtet und dann diese Verzeichnisse auch noch in den Bibliothekspfaden einrichten muß.