Discussion :

[stfanny31]

Salem
j'ai un Programme ou je dois efface plusieurs fois la même chose ,j'ai donc décidé de crée une procédure pour éviter la répétition
avec l'aide du AIDE DE DELPHI j'ai écrit ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure Efface ;
var
    nom: TEdit;
    tel2: TEdit;
    tel1: TEdit;
    pren: TEdit;
begin
nom.Clear ;                                       
pren.Clear;                                       
tel1.Clear;                                           
tel2.Clear;                                           
end;

et pour l'appel je fait

Code :

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

Efface;

mais quant je exécute le programme j'ai une erreur
vous pouvez me corriger

[joce21]

Quel est ton erreur exactement?

[philnext]

A priori tu utilises des TEdit qui sont des objets.
Comme c'est toi qui les déclares tu doit les créer et les supprimer.
Genre :

Code :

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

1
2
3
4
5
6
7
8
procedure Efface ;
var
    nom: TEdit;
begin
  nom.create(nil);
  nom.Clear ;      
  nom.free;                                 
end;

Maintenant ce sont des composants visuels donc il est plus courant, si tu débutes, qu'ils soient créés en les déposant sur une TForm, dans ce cas tu n'as pas à t'occuper de la création / desctruction.
Bon en fait tu veux faire quoi exactement ?

[stfanny31]

OUPSSSSS

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure Efface ;
var
    nom: TEdit;
begin
  nom.create(nil);
  nom.Clear ;      
  nom.free;                                 
end;

ce code arrête tout l'exécution
j'ai un groupe d'instruction qui ce répété beaucoup dans mon programme et je veux avoir que une procédure et a chaque fois je l'appel

[stfanny31]

comme j'arrivais pas a dormir et que je pensé qu'a ça même en dormant
j'ai crée ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.efface(Sender: TObject);
begin
  nom.Clear ;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.efface(nom);
end;

et bien sur j'ai déclaré ma procédure avec les autre procédure comme suite

Code :

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

procedure efface(Sender: TObject);

je sais vrément pas comment mais cela marche

comment vous trouver ce code

[Caribensila]

Bonsoir,

j'ai un groupe d'instruction qui ce répété beaucoup dans mon programme

Si tu nous donnais ce groupe d'instructions, ce serait beaucoup plus facile pour nous.

Mais si j'ai bien compris (et si j'ai de la chance), tu as 4 TEdits sur ta fiche dont les propiétés Name sont respectivement: 'nom', 'pren', 'tel1', 'tel2' et dont tu veux effacer le contenu...

Si c'est le cas(?) :

Code :

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

1
2
3
4
5
6
7
procedure Efface ;
begin   
  nom.Clear;
  pren.Clear;
  tel1.Clear;
  tel2.Clear;                          
end;

[stfanny31]

Merci a vous Mr "Caribensila"

Mais si j'ai bien compris (et si j'ai de la chance), tu as 4 TEdits sur ta fiche dont les propiétés Name sont respectivement: 'nom', 'pren', 'tel1', 'tel2' et dont tu veux effacer le contenu...

vous avais tout compris

Si c'est le cas(?) :

c'est quatre ligne ce répéte une 10 de fois dans mon programme c pour cela que je veut les écrire une seul fois et a chaque fois faire un appel

[archonte]

Merci a vous Mr "Caribensila"

vous avais tout compris

c'est quatre ligne ce répéte une 10 de fois dans mon programme c pour cela que je veut les écrire une seul fois et a chaque fois faire un appel

Il faut que ta procédure Efface "appartienne" à ta Form si tu veux pouvoir appeler ses objets comme cela t'est indiqué par Caribensila : soit :

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
// interface
 
type
   TForm1 = class(TForm)
      nom : TEdit;
      prenom : TEdit;
      ...
      private
         { Déclarations privées }
         procedure Efface;
      ...
      end;
 
 
// implementation
 
procedure TForm1.Efface;
begin
   nom.Clear;
   prenom.Clear;
end;