TMultiLangDictionary.Merge

TMultiLangDictionary = class (TObject)Interface de TMultiLangDictionaryExemples de TMultiLangDictionary

Ajout/mise à jour de traductions dans un dictionnaire

Syntaxe

procedure Merge(list: TStrings)
list: liste de chaînes de caractères à fusionner.

Exemples

uses QuBESMultiLang;

// Définition de paire de 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', dtConfiguration);

// Ajout d'une chaîne au dictionnaire sans traduction
PrintLn(dictEN.Translate('Chaine de caractère à traduire')); // affiche "Chaine de caractère à traduire"

// Ajout/mise à jour de traductions
dictEN.Merge(lstTraductions);

// Vérification que les chaînes sont bien traduites
PrintLn(dictEN.Translate('Chaine de caractère à traduire')); // affiche "String to translate"
PrintLn(dictEN.Translate('Seconde chaine de caractère à traduire')); // affiche "Second string to translate"

// Mise à jour du dictionnaire dans la base de données
dictEN.Post;

Classification

QuBESMultiLang TMultiLangDictionary