TMultiLangDictionary - Exemples

uses QuBESMultiLang;

// On est connecté à Qubes en langue française mais on souhaite récupérer
// la traduction d'un terme en anglais
var dictEN:=TMultiLangDictionary.ConnectDataBaseFile('0409', dtConfiguration);
PrintLn(dictEN.Translate('Utilisateur')); // affiche "User"

// Exemple de création d'un dictionnaire d'Import en anglais et sauvegarde en base de données
uses QuBESMultiLang;

// Définition des traductions
var lstTraductions:=TStrings.Create;
lstTraductions.Values['Chaine de caractère à traduire']:='String to translate';
lstTraductions.Values['Seconde chaine de caractère à traduire']:='Second string to translate';

// Connexion au dictionnaire
var dictEN:=TMultiLangDictionary.ConnectDataBaseFile('0409', dtImport);
// On efface le dictionnaire (car on va le redéfinir en entier)
dictEN.Clear;
// Ajout/mise à jour des traductions
dictEN.Merge(lstTraductions);
// Mise à jour dans la base de données
dictEN.Post;