Bpnjour a tous ,

Je recupere un programme qui possede toutes ses chaines ( texte dans une unité )

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
 
unit UtilPhoenix;
 
interface
 
Uses
  Windows,dialogs, Graphics,FileCtrl,SysUtils,shellAPI;
 
 
var
   ....
 
// declaration des chaines..
  CapPGAide          :String  ='&Aide';
  CapPGQuitte        :String  ='&Quitter';
  CapPGNouveau       :String  ='&Nouveau';
  CapPGOuvrir        :String  ='&Ouvrir';
  CapPGSauve         :String  ='Enre&gistrer';
  CapPGSauveSous     :String  ='Enregistrer &Sous..';
  CapPGImprime       :String  ='&Imprimer';
  CapPGCopier        :String  ='Co&pier';
  CapPGCouper        :String  ='&Couper';
  CapPGColler        :String  ='Col&ler';
  CapPGUndo          :String  ='&Défaire';
  CapPGSup           :String  ='Suppri&mer';
  CapPGCherche       :String  ='&Rechercher';
  CapPGremplace      :String  ='Suiv&ant';
  CapPGVerif         :String  ='Véri&fier';
  CapPGselAll        :String  ='S&élec..Tout';
  CapPGClasseur      :String  ='&Classeur';
  CapPGTranco        :String  ='&Visu Transcodage';
  CapPGOuvreTranco   :String  ='Ouvre T&ranscodage';
  CapPGChangeTranco  :String  ='<-- Changer --&>';
  CapPGChercherTra   :String  ='Rechercher';
  CapPGremplaceTra   :String  ='Suivant';
  Capeditcab         :String  ='&Edit câble';
  CapPoint           :String  ='Point: ';
  CapVide            :String  ='vide';
  CapTypePoint       :String  ='Type Point';
 
....
j'ai comme çà quelque 1500 variable globales qui servent a toutes l'application de caption , messages ...

Quand je rajoute des messages , l'application plante et remarche si je met des messages en commentaires !

Donc si mes souvenirs sont bon en pascal on avais droit 64ko de données

est ce pareil en delphi ?

si oui quelle solution ai je pour regler se probleme ?

merci a tous !