Bonjour , voici mon code :
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
 
 
  ListObject := TListObject.Create();
 
  // FR
  aObject := TObject.Create();
  aObject.StoreCode := 'fr';
  aObject.Title := 'TitleFR';
 
  ListObject.Add(aObject);
 
  // DE
  aObject := TObject.Create();
  aObject.StoreCode := 'de';
  aObject.Title := 'TitleDE';
 
  ListObject.Add(aObject);
 
  // EN
  aObject := TObject.Create();
  aObject.StoreCode := 'en';
  aObject.Title := 'TitleEN';
 
  ListObject.Add(aObject);
 
  // IT
  aObject := TObject.Create();
  aObject.StoreCode := 'it';
  aObject.Title := 'TitleIT';
 
  ListObject.Add(aObject);
Je cherche un moyen de simplifier/réduire ce bout de code. J'ai cherché du code inline mais je ne me rappelle plus de la syntaxe. Avez-vous une idée ? (à part surcharger le consctructor )