Les {##texte##} sont juste un commentaire, pour se rappeler le contenu des variables TXT(X) correspondant. En fait c'est une fonction qui regroupe tout le texte en un même endroitVoici: J'écris le code comme à l'habitude, avec le texte, puis j'ouvre l'unité .pas dans un utilitaire qui ramasse tout le texte de l'unité et le remplace par les variables. Le texte se retrouve alors tout regroupé en une seule fonction. Comme celle montrée en bas pour l'application du listview/regedit. Le pchar est optionnel et utile surtout si on veut crypter le texte (en option).
Exemple:
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61 function TForm1.TXT(TXTNr:integer):String; begin if not Assigned(TXTs) then begin TXTs:=Tstringlist.create; with TXTs do begin {0} Add('Afficher la liste'); {1} Add('AppliINIFile'); {2} Add('Keys'); {3} Add('count'); {4} Add('OLDKeys'); {5} Add('999'); {6} Add('HKLM'); {7} Add('HKcU'); {8} Add('Appli-Sauver-Clés'); // créer un fichier sauvegarde .reg {9} Add('AutoSave'); {10} Add('Clés sauvegardées '); {11} Add('.rrf'); {12} Add('.ini'); {13} Add('ERREUR'); {14} Add('Clés rétablies'); {15} Add(' le '); // on {16} Add(' : '); {17} Add(' | '); ...... {21} Add('pour désinstaller, Fermer l'application'); {22} Add('et utiliser Regedit au besoin pour supprimer la clé'); {23} Add('Désirez-vous supprimer cette clé ?'); {24} Add('Si vous en êtes pas certains faites d''abord une sauvegarde'); {25} Add('Clé supprimée par Usager'); {26} Add('Clé '); {27} Add(' supprimée'); {28} Add('Regedit.exe'); {29} Add('notepad.exe'); {30} Add('Aucun évènement'); {31} Add('autodelete.txt'); {32} Add('Fichier non trouvé: '+TXT(31)); {33} Add('lisezmoi.txt'); {34} Add('Fichier non trouvé: '+TXT(33)); {35} Add('DATE'); ...... {44} Add('Userinit'); {45} Add('Shell'); {46} Add('Taskman'); {47} Add('Startup'); {48} Add('Logon'); {49} Add('Clé auto-suppression'); {50} Add('Avant : '); {51} Add(' Clés , Actuel : '); {52} Add(' Clés'); {53} Add('L'application va être Fermée'); ...... {67} Add('msconfig.exe'); {68} Add('http://www.google.de/search?hl=de&ie=ISO-8859-1&q=%22'); {69} Add('%22+'); {70} Add('&btnG=Suche&meta='); // pour chercher la clé dans google {71} Add('.txt'); {72} Add('DontPopUp'); end; end; Result := TXTs[TXTNr]; end;
Partager