Discussion :

[remixtech]

Bonjour,

Excusez moi de vous déranger, mais je voudrai savoir comment vous faîtes pour stocker vos ressourcestrings...

J'ai ai 500 et je trouve que ça "fou le Bordel !" dans mon unit

Vous faîtes comment ? Y'a t'il moyen de les mettre dans un autre fichier ?

Merci

[JP.NUAGE]

Petite question pour être sûr

J'ai trouvé TResourceStream, mais pas Tressourcstring. Tu trouves ça où ?

[remixtech]

Les ressourcestrings ce sont juste des chaînes que tu déclares à part pour mieux traduire ton application...

[Pascal Jankowski]

Pour gérer mes resourcestring, je procède de la façon suivante:

Pour chaque langue je décris chaque ressource dans un fichier texte :

francais.txt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
resourcestring
  RSTYes = 'oui';
  RSTMessage = 'Salut %s';

anglais.txt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
resourcestring
  RSTYes = 'yes';
  RSTMessage = 'hello %s';

puis j'ai créé une unité international.pas où j'appelle via la directive {$I monfichier} le fichier de langue concerné. Avec la fonction FilterString, (voir code ci-dessous) on peut récupérer la valeur d'une resourcestring.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
unit international;
interface
{$I appli.inc}
{$IFDEF anglais}
   {$I anglais.txt}
{$ELSE}
   {$IFDEF francais}
      {$I francais.txt}
   {$ENDIF}
{$ENDIF}
 
function FilterString(AResString: Pointer): string;
 
type
  TFilterGetResourceStringFunc = function(
    AResString: Pointer): string;
 
var
  FilterGetResourceStringFunc: TFilterGetResourceStringFunc;
 
implementation
function FilterString(
  AResString: Pointer): string;
begin
  if Assigned(FilterGetResourceStringFunc) then
    Result := FilterGetResourceStringFunc(AResString)
  else
    Result := LoadResString(AResString);
end;
 
end.

Dans le fichier mon appli.inc qui contient toutes les directives de mon application, on active la langue qui doit être utilisée lors de la compilation.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
{-$DEFINE anglais}
{$DEFINE francais}

ici le français est actif lors de la compilation.

Il suffit maintenant de déclarer l'unité international dans toutes les unités qui vont appeler les ressourceString et d'utiliser la fonction FilterString(@maresourcestring) et le tour est joué.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
uses
  international;
 
procedure TForm1.afficheResource;
begin
  showMessage(FilterString(@RSTYes));
  showMessage(format(FilterString(@RSTMessage),['Rémi']));
end;

Voilà la solution que j'emploie. Il y a certainement mieux et plus efficace...

[remixtech]

C'est très gentil, mais faut que je réécrive tout mon code
Je voulais juste une solution pour éviter d'avoir un méga fichier de milliers de lignes...

Il n'y a peut être pas moyen de les mettre dans un autre fichier...

Merci quand même

[Pascal Jankowski]

Je crois que ta réponse se touve là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
{$I mesressources.txt}
 

Tu crées un fichier text avec toutes tes ressources, tu coupes et colles tes ressources existantes dedant. Puis tu l'incopores à ton unité où elles se trouvaient initialement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
unit
.....
interface
 
{$I mesressources.txt}
....

Cela te prendra à peine deux minutes