Discussion :

[ABBAN270]

Bojours
comment je peut faire un saut vers une autre procedure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormCreate(Sender: TObject);
 
begin
 
Répéter: 
 
code code code
code code code
code code code
 
end;

Code :

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

1
2
3
4
procedure TForm1.Image1Click(Sender: TObject);
begin
goto Répéter;
end;

Merci

[ShaiLeTroll]

un for, un while do, repeat until ... pour faire une boucle ce n'est pas ce qui manque

Et le goto est à bannir, il n'y a aucune raison de l'utiliser dans un code logique

A lire : Guide Pascal et Delphi VI. Procédures et Fonctions et VIII-B. Structures itératives

Fait plutôt une FonctionMachin qui est appelé par FormCreate et par Image1Click
C'est comme cela que l'on met du code en commun par une fonction avec ces paramètres éventuellement.

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
procedure TForm1.FormCreate(Sender: TObject);
begin
  Repeter();
end;
 
procedure TForm1.Image1Click(Sender: TObject);
begin
  Repeter();
end;
 
procedure fonction Répéter();
begin
code code code
code code code
code code code
end;

[ABBAN270]

merci mais j'ai un code qui se répète a chaque fois dans des endroit différents et des formes différentes
je voulais pas copier le même code a chaque procédure...
je voulais faire une appelle a une seul procédure a chaque fois

[Charly910]

Bonjour,

tu mets cette procédure dans une unité (en la déclarant dans la partie interface) et dans les autres tu mets un uses de cette unité.

Ainsi tu y auras accès dans tes autres unités.

A+
Charly

[ShaiLeTroll]

merci mais j'ai un code qui se répète a chaque fois dans des endroit différents et des formes différentes
je voulais pas copier le même code a chaque procédure...
je voulais faire une appelle a une seul procédure a chaque fois

C'est exactement l'idée d'avoir une fonction, faudrait peut-être nous montrer un peu plus car là on ne comprend pas trop la difficulté, c'est le B.A-BA

endroit différents et des formes différentes

Que veux dire "formes différentes" ?

Est-ce des variantes du même code légèrement différent ?

C'est ni plus ni moins une phase de refactoring, tu as un code dupliqué, il faut prendre le code dupliqué et voir si il y a des différences, si oui, cela peut faire l'objet d'un ou plusieurs paramètres pour gérer un ou deux cas spéciaux, pas plus, après vaut mieux découper encore plus ou faire plusieurs variantes de la même fonction pour la lisibilité.

Oui tu as francisé TForm soit des unités différentes.
et la réponse c'est uses et la fonction dans une unit à part comme proposé par Charly910 et la il faut lire IV-D-1. La notion de projet
Faudrait peut-être apprendre les bases ?




Ton intention de mettre en commun du code est tout à fait louable et parfaitement justifié, tout le monde ne s'en soucie pas !

J'ai déjà repris le code d'un collège 117 fois le même code copié-collé, la différence trois chaines sur 25 lignes.
J'ai fait une fonction avec trois paramètres, j'ai remplacé les 117 emplacements, j'ai ainsi retiré 2500 lignes.
Evidemment, développeur médiocre, il en a rajouter d'autres, au moins 20, après n'ayant toujours pas compris comme faire de réutilisation ... et parce qu'il me détestait aussi, il se pensait bon, il a compris qu'il ne l'était pas sur un projet de logistique

[ABBAN270]

oui c'est bien compris
mais j'ai essayer de faire une procédure
mais elle n'a pas reconnu les objets qui sont déclarer dans l'unité comme dans la photo

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure Actualiser();
 
begin
Table1.Locate('id', i+1,[]);
Image1.Picture.LoadFromFile(Table1['lien']);
 
 
end;

[dcc32 Erreur] Unit1.pas(46): E2003 Identificateur non déclaré : 'Table1'
[dcc32 Erreur] Unit1.pas(47): E2003 Identificateur non déclaré : 'Image1'

[ShaiLeTroll]

c'est la Dépendance à Self soit l'instance du TForm

C'est un code difficile à mettre en commun mais ça serait

Code :

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

1
2
3
4
5
procedure Actualiser(ATable: TDataSet; const AFieldName: string; AImage: TImage);
begin
  ATable.Locate('id', i+1,[]);
  AImage.Picture.LoadFromFile(ATable[AFieldName]); 
end;

et l'appel depuis le TForm1

Code :

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

Actualiser(Table1, 'lien', Image1);

Evidement faudra penser à renommer Form1, Table1, Image1 ... sinon tu vas t'y perdre, je suppose que c'est juste un projet d'essai que tu nous montres.

[ShaiLeTroll]

J'ajouterais qu'il a des fonctions ou procédures mais qu'il y a aussi des méthodes

ceci est une procédure

Code :

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

1
2
3
4
5
procedure Actualiser(ATable: TDataSet; const AFieldName: string; AImage: TImage);
begin
  ATable.Locate('id', i+1,[]);
  AImage.Picture.LoadFromFile(ATable[AFieldName]); 
end;

ceci est une méthode (Il y a Self implicite)

Code :

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

1
2
3
4
5
procedure TForm1.Actualiser(); // Note la déclaration comme pour tes gestionnaires d'évènements
begin
  Table1.Locate('id', i+1,[]);
  Image1.Picture.LoadFromFile(Table1['lien']); 
end;

en réalité le code est compris ainsi

Code :

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

1
2
3
4
5
procedure TForm1.Actualiser();
begin
  Self.Table1.Locate('id', i+1,[]);
  Self.Image1.Picture.LoadFromFile(Self.Table1['lien']); 
end;

Il te faut comprendre la différence entre du code procédural et du code objet

FormCreate et Image1Click sont des méthodes de TForm1
Ce sont aussi ce que l'on appel des gestionnaires d'évènement

tu dois ajouter une section private en dessous

Code :

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

1
2
3
4
5
6
7
8
type
  TForm1 = class(TForm)
  ...
   procedure Image3Click(Sender:TObject);
 ...
private
  procedure Actualiser();
end;

Cela ne permettra par de partager du code entre plusieurs TForm mais cela t'aidera à comprendre la différence.

Et plus tard, tu te diras qu'il existe aussi l'héritage, au lieu d'avoir TForm comme ancêtre, tu peux en mettre un autre ... mais on va attendre pour ce genre de structure même si il est à parier que c'est la plus adéquate.

[ABBAN270]

je savais pas que c'est compliqué
je vais essayer de comprendre le code
apres je vais tester les codes
parce que c'est une leçon aujourd'hui
merci beaucoup