Discussion :

[petitcoucou31]

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 !

[qi130]

Regarde dans les options du projet, onglet lieur...

Que disent les champs concernant la pile ?

[smyley]

et si tu remplaces par des Resourcestring ?

[Graffito]

Bonjour,

Possibilté 1 : augmenter la "max stack size" dans les option du projet (linker).

Possibilté 2 : tu pourrais essayer le code suivant avec un peu de copier-coller (utiliser la souris en sélection colonne avec la touche Alt) :

Code :

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

1
2
3
4
5
6
7
8
9
10
var 
   .... 
// declaration des chaines.. 
  CapPGAide          :String  ; 
  CapPGQuitte        :String  ; 
  CapPGNouveau    :String  ; 
   ...
initialization
  CapPGOuvrir        :='&Ouvrir'; 
  CapPGSauve        :='Enre&gistrer';

Possibilté 3 : créér un objet "TContext" et une variable globale "Context".

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
type 
  TContext = Class(Tobject)  
  CapPGAide          :String  ; 
  CapPGQuitte        :String  ; 
  CapPGNouveau    :String  ; 
   ...
 
var Context : Tcontext ;
// remarque : remplacer tout les capPG* par Context.CapPG*
 
initialization
  Context:=Tcontext.create ;
  Context.CapPGOuvrir        :='&Ouvrir'; 
  Context.apPGSauve        :='Enre&gistrer';
...
finalization
   Context.free ;