Discussion :

[Alferox]

Bonjour à tous,

j'ai une procédure qui se trouve dans une autre unité, j'arrive à l'appeler (j'ai ajouté uses Unit2) dans l'unit1.

Mais dans cette Procédure, j'ai des références à l'Unit1, et je souhaiterais que ces références soient des variables (c'est à dire remplacer Unit1. par une variable).

Voila mon code :

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
 
Procedure CalculPrix;
var
  Total1 : String;
  TotalRemise1, TotalRemise2, TotalGeneral : real;
  TempRemise1, TempRemise2 : extended;
  begin
    if Unit1.Edit1.Text <> '0' then
      begin
        TotalRemise1 := StrToInt(Unit1.Edit1.Text) * Total;
        TotalRemise1 := TotalRemise1 / 100;
        TempRemise1 := Total - TotalRemise1;
        Unit1.Label91.Caption := FormatFloat('0.00', RoundTo(TotalRemise1,-2)) + ' €';
      end
      else
        begin
        Unit1.Label91.Caption := '0 €';
        end;

et je souhaiterai avoir

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
 
Procedure CalculPrix;
var
  Total1 : String;
  TotalRemise1, TotalRemise2, TotalGeneral : real;
  TempRemise1, TempRemise2 : extended;
  begin
    if Nom_de_unit_variable.Edit1.Text <> '0' then
      begin
        TotalRemise1 := StrToInt(Nom_de_unit_variable.Edit1.Text) * Total;
        TotalRemise1 := TotalRemise1 / 100;
        TempRemise1 := Total - TotalRemise1;
        Nom_de_unit_variable.Label91.Caption := FormatFloat('0.00', RoundTo(TotalRemise1,-2)) + ' €';
      end
      else
        begin
        Nom_de_unit_variable.Label91.Caption := '0 €';
        end;

C'est possible?

Merci

[Papy214]

ça m'étonnerait.

Mais pourquoi ne pas rajouter des paramètres à la fonction pour éviter la référence circulaire ?

[Alferox]

Enfaite j'ai une procédure qui me permet d'imprimer un devis avec canvas. Et si je veux ajouter des paramètres à la fonction, il va y en avoir vraiment beaucoup… Ce n'est pas un problème?

[Papy214]

ça peut tenir dans un record, et ça ne fera qu'un seul paramètre

Code :

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

1
2
3
4
5
6
7
8
9
10
MesParam = record
  Nom: string;
  Longueur: Integer;
  Valeur: Single;
// .etc.
end;
 
procedure Imprime(Params: MesParams);
begin
  Params.Nom accessible ici

[Alferox]

Parfait, j'ai compris, merci pour ton aide. Je vais faire comme ca

[guillemouze]

Attention, tu confond unité et instance de classe. Je suppose que ton unit1 est une TForm, et pas un fichier .pas Delphi (sinon ton label en variable globale est un procédé étrange).
Ce que tu décrit ici est simplement une methode (procedure d'une classe). Je vais, dans la suite, continuer à parler de unit1, mais je pense qu'il s'agit plutot de form1.
Tu pourrai passer ton unit1 en parametre :

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
Procedure CalculPrix(MyUnit: TForm);
var
  Total1 : String;
  TotalRemise1, TotalRemise2, TotalGeneral : real;
  TempRemise1, TempRemise2 : extended;
  begin
    if MyUnit.Edit1.Text <> '0' then
      begin
        TotalRemise1 := StrToInt(MyUnit.Edit1.Text) * Total;
        TotalRemise1 := TotalRemise1 / 100;
        TempRemise1 := Total - TotalRemise1;
        MyUnit.Label91.Caption := FormatFloat('0.00', RoundTo(TotalRemise1,-2)) + ' €';
      end
      else
        begin
        MyUnit.Label91.Caption := '0 €';
        end;

Mais dans ce cas, une methode de classe serait plus adapté, avec Self à la place de MyUnuit

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
type
  TForm1 = class(TForm)
  [...]
  Procedure CalculPrix;
 
  end;
 
[...]
 
Procedure TForm1.CalculPrix;
var
  Total1 : String;
  TotalRemise1, TotalRemise2, TotalGeneral : real;
  TempRemise1, TempRemise2 : extended;
  begin
    if Self.Edit1.Text <> '0' then
      begin
        TotalRemise1 := StrToInt(Self.Edit1.Text) * Total;
        TotalRemise1 := TotalRemise1 / 100;
        TempRemise1 := Total - TotalRemise1;
        Self.Label91.Caption := FormatFloat('0.00', RoundTo(TotalRemise1,-2)) + ' €';
      end
      else
        begin
        Self.Label91.Caption := '0 €';
        end;

... le "Self" étant facultatif