Discussion :

[damene]

Bonjour à tous.

Dans une Application la copie d’une table se fait dans plusieurs Procédures.
Plutôt que d’écrire à chaque fois la routine de Copie, j’ai créé une procédure de copie de cette table.

A la compilation j’ai le message suivant : ‘ Indicateur non déclaré « Self » ‘ à la ligne (en rouge)
nomTable := TTable.Create(self);

Lorsque je masque cette procédure secondaire (mise en place d'accolades) le programme se compile normalement et la copie est faite correctement (Procédure BoutonSecondaire).

J’ai matérialisé cela avec les deux boutons (ButtonPrincipal et ButtonSecondaire)

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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBTables, DB;

type
  TForme = class(TForm)
    ButtonPrincipal: TButton;
    ButtonSecondaire: TButton;
    MtCartoP: TTable;
    dsCartoP: TDataSource;
    BatchMove1: TBatchMove;
    MtCartoPProv: TTable;
    DataSource4: TDataSource;
    procedure ButtonPrincipalClick (Sender: TObject);
    procedure ButtonSecondaireClick (Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Forme: TForme;
  nomTable:TTable;
  procedure CopierTable(); forward;
implementation

{$R *.dfm}

procedure TForme. ButtonPrincipalClick (Sender: TObject);
begin
    MtCartoP.Active:=false;
    MtCartoP.TableName:='MtCartoP';
    MtCartoP.Active:=True;
    nomTable := TTable.Create(self);
    nomTable.TableType :=ttParadox;
    MtCartoPProv.Active:=false;
    nomTable.TableName :='MtCartoPProv';
    BatchMove1.Source :=MtCartoP;
    BatchMove1.Destination :=nomTable;
    BatchMove1.Mode :=batCopy;
    BatchMove1.Execute;
    nomTable.AddIndex('','Cle Interne',[IxPrimary]);
    nomTable.AddIndex('CartoPProvCodepNtrNdrv','CodDepart;NumTroncon;NumDerivat',[]);
    MtCartoPProv.Active:=True;
end;


procedure CopierTable();
begin
{
  with Forme do
  begin
    MtCartoP.Active:=false;
    MtCartoP.TableName:='MtCartoP';
    MtCartoP.Active:=True;
    nomTable := TTable.Create(self);
    nomTable.TableType :=ttParadox;
    MtCartoPProv.Active:=false;
    nomTable.TableName :='MtCartoPProv';
    BatchMove1.Source :=MtCartoP;
    BatchMove1.Destination :=nomTable;
    BatchMove1.Mode :=batCopy;
    BatchMove1.Execute;
    nomTable.AddIndex('','Cle Interne',[IxPrimary]);
    nomTable.AddIndex('CartoPProvCodepNtrNdrv','CodDepart;NumTroncon;NumDerivat',[]);
    MtCartoPProv.Active:=True;
  end;
}
end;

procedure TForme. ButtonSecondaireClick (Sender: TObject);
begin
  CopierTable();
end;

end.

Je voudrais savoir où se situe mon erreur.
Merci

[Aka Guymelef]

Bonjour,

Self représente l'objet lui-même à l'intérieur d'une méthode dudit objet.

Or ici CopierTable() n'est plus une méthode d'un objet mais une simple procédure, donc plus de référence à Self. Tu dois donc créer l'objet ainsi et surtout pas oublier de le libérer une fois le travail accompli.

Code :

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

1
2
3
4
5
6
7
nomTable := TTable.Create(NIL);
try
  [...]
 
finally
  nomTable.Free;
end;

Par ailleurs il y a clairement un problème de conception dans ta routine car tu te sert de "l'astuce" de passer par la variable globale Forme pour accéder aux objets déposés sur la fiche. Théoriquement ces objets devraient être passés en paramètre de ta routine.

[damene]

Bonjour.
Merci Aka Guymelef pour ton aide, c'est Parfait.

pour ce qui concerne la conception :

Par ailleurs il y a clairement un problème de conception dans ta routine car tu te sert de "l'astuce" de passer par la variable globale Forme pour accéder aux objets déposés sur la fiche. Théoriquement ces objets devraient être passés en paramètre de ta routine.

Je suis tout à fait d'accord avec toi.

J'utilise cependant cet artifice car dans certains cas le nombre de paramètres est très grand.