Discussion :

[Algoplus]

Bonjour à tous,

J'ai une form (Form1) sur laquelle sont disposées quelques Edit.

J'ai besoin de les effacer ainsi que réinitialiser des variables depuis plusieurs endroit. J'ai donc tenter de tout regrouper dans une procédure (écrite dans Unit1.pas), mais ... ça ne marche pas.

voila ma procédure:

Code :

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

1
2
3
4
5
6
procedure PROCRAZ;
begin
  Edit1.text:='';
  edit2.text:='' ;
  nb:=0;
end;

mais j'ai le message suivant à la compilation:
[Erreur] Unit1.pas(161): Identificateur non déclaré : 'Edit1'

J'ai essayé avec TForm1.Edit1 mais message :[Erreur] Unit1.pas(161): Identificateur de méthode attendu

Merci d'avance pour votre aide.

[tourlourou]

Bonjour,

Il semble que la procédure PROCRAZ n'ait pas accès à la variable Form1 (si c'est bien son nom) qui pointe sur la fiche de type TForm1 :

Code :

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

1
2
3
4
5
6
7
8
9
procedure PROCRAZ;
begin
  with Form1 do
  begin
    Edit1.text:='';
    edit2.text:='' ;
  end;
  nb:=0;
end;

Étant donné qu'elle a à connaître de Form1, peut-être même devrait-elle être une méthode du type d'objet TForm1 ? Auquel cas, elle connaîtrait automatiquement ses membres .

[Algoplus]

merci pour cette solution.

je viens juste de trouver une autre solution en parcourant les milliers de tutos sur le net.

et après 2 jours de recherche :

Code :

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

1
2
3
4
5
6
procedure TForm1.PROCRAZ;
begin
  Edit1.text:='';
  edit2.text:='' ;
  nb:=0;
end;

Pas facile de démarrer un nouveau langage (?)!!

[pprem]

Il est effectivement plus pratique de créer des fonctions/procédures dans une classe directement lorsqu'on veut travailler sur les propriétés d'une instance de cette classe.

Pas facile de démarrer un nouveau langage (?)!!

T'en fais pas trop, ça vient vite. Si tu veux les bases de Delphi, en français, y a toujours le vieux "Guide du langage Delphi" disponible à l'adresse http://docwiki.embarcadero.com/RADSt...Delphi_-_Index

[Algoplus]

Merci pour les encouragements et la lecture !

[Papy214]

un peu plus générique (pour l'apprentissage):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure proc_raz(Form: TForm);
var
  I: Integer;
begin
  for I := 0 to Form.ComponentCount - 1 do
    if Form.Components[I] is TEdit then
      TEdit(Form.Components[I]).Text := '';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  proc_raz(Self);
end;

ou pour un Delphi récent avec FMX :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure proc_raz(Form: TForm);
begin
  Form.EnumObjects(
    function(FmxObject: TFmxObject): TEnumControlsResult
    begin
      if TControl(FmxObject).InheritsFrom(FMX.Edit.TEdit) then
        TEdit(FmxObject).Text := '';
      Result := TEnumControlsResult.Continue;
    end);
end;