Discussion :

[QAYS]

Bonjour,

J'ai une questio sur POO (programation Orienté Objet)

J'ai donc créer deux class simples (pas de chichi).

initialement je ne créait pas d'instance ce ces class; type d'appel procedural.

J'ai voulu essayer des appel POO.

J'ai donc créer Une instance de la class 1 qui appel une class 2

EN résume voila le code :

Unit FORM1

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.FormCreate(Sender: TObject);
begin
  MON_MENU:= TMENU_UTIL.Create(self);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
     MON_MENU.MY_CREATE_TPOPUPMENU_FROM_INI('Carnet_BULLETIN',nil);
end;

Unit UMENU_UTIL

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
Constructor TMENU_UTIL.Create(AOwner: TComponent);
begin
  Inherited;
  MY_CREATEINI := TCREATEINI.Create;
  MY_READINI := TREADINI.Create;
end;   


procedure TMENU_UTIL.MY_CREATE_TPOPUPMENU_FROM_INI({VAR MY_MENU:TPopupMenu;}
                                          MENU_CONFIG:String;
                                          MY_EVENT:TnotifyEvent);

var
F:TextFile;
Ligne   : string;
i:integer;
Cod:integer;
NBRE_LIGNE:integer;
VALEUR:String;
NAME_BTN:String;
SRC_IMAGE_BTN:String;
begin
BOOM  ERREUR SUR l'INSTRUCTION CI_DESSOUS        
        MY_CREATEINI.CREATE_INI(MY_READINI.READ_INI(MENU_CONFIG,
                                                   PTR_WORK.REPERTOIRE_INI+'\MENU.INI',
                                                   '[FIN]'),
                                PTR_WORK.REPERTOIRE_TEMP+'\'+MENU_CONFIG+'.INI');

        I:= 1;

        if MY_READINI.MY_OPEN_FILE(F,PTR_WORK.REPERTOIRE_TEMP+'\'+MENU_CONFIG+'.INI') = 0 then
        begin
            repeat
                VALEUR:=TRIM(MY_READINI.MY_READLN(CRYPT,F));
                MY_CREATE_TPOPUPMENU(VALEUR,MY_EVENT,-1,false,I);
                I:= I+1;
            Until EOF(F);
            MY_READINI.MY_CLOSE_FILE(F);
        end;
end;

Là j'ai un trap et je ne me l'explique pas, Soyez indulgent je début en POO, j'ai d"ja créer des objets et utilisé la notions d'héritage notement avec des objets query (ib,bde etc) mais là je plante et je ne comprends pas pourquoi.

Peut être que vos explication me permettrons d'améliorer mes dev existant

Cordialement
QAYS

[Paul TOTH]

je ne vois rien de spécial dans ton code...mais c'est quoi PTR_WORK ?

[QAYS]

Il s'agit aussi d'une class qui est aussi crééer dans le create form, j'ai simplement oublié de le signaler dans mon exemple,

Mais je pense que vous venez de me metre sur la piste du bug, en fait il semblerait que ptr_work est a nil, je vérifier pourquoi

[QAYS]

Merci, le problème venait simplement de ptr_work, qui n'étais pas bient initialisé, merci bcp

Cordialement