Intégration d'une procedure [Résolu]

[gaston11]

bonsoir a tous,
voilà débutant et bien débutant!!
dans une doc d'apprentissage de delphi (de A.Sayer)
je me retrouve betement bloqué!
il me manque vraiment des bases.

comme exercice il propose de faire une procedure pour transformer un "Integer" en Hexa.
j'ai bien saisis la fonction j'ai essayé de l'installé dans une fiche mais il n'en veux pas!
il se plante au niveau de la déclaration de la procédure
msg du genre : unit1 ';' attendu mais '.' trouvé
voici le code
qu'est ce que je loupe?

merci

ps désolé mais les tabulations sont virées ici

Code :

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TEntierVersHexa = class(TForm)
    Label1: TLabel;
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  EntierVersHexa: TEntierVersHexa;
 
implementation
 
{$R *.dfm}
 procedure TForm1.EntierVersHexa( Nbr : integer );
var i : integer;
    Quotient : integer;
    Reste : integer;
    H : string;
begin
    H := '';
    for i := 1 to 4 do
    begin
        Quotient := Nbr div 16; { div effectue une division entière }
        Reste : =Nbr - Quotient * 16; { Reste vaut entre 0 et 15 }
        if Reste <= 10 then
            begin
                H := chr(Reste + 48) + H; { Reste + 48 vaut entre 48 et 57 }
            end
        else
        begin
            H := chr(Reste + 55) + H; { Reste + 55 vaut entre 65 et 70 }
        end;
        Nbr := Quotient;
      end;
      Label1.Caption := H;
end;
 
 
end.

[Ph. B.]

Bonjour,

Envoyé par gaston11

désolé mais les tabulations sont virées ici

Il faut utiliser la balise [ code ] (cf. le bouton # lors de la saisie) !

Envoyé par gaston11

j'ai bien saisis la fonction j'ai essayé de l'installé dans une fiche mais il n'en veux pas!
il se plante au niveau de la déclaration de la procédure

Votre procédure n'est pas déclarée dans la partie interface, plus exactement dans la description de la classe TEntierVersHexa.
Et attention à la syntaxe des affectations, c'est := et pas : =
Il faut écrire :

Code :

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
unit Unit1;

interface

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

type
  TEntierVersHexa = class(TForm)
    Label1: TLabel;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure EntierVersHexa( Nbr : integer );
  end;

var
  EntierVersHexa: TEntierVersHexa;

implementation


{$R *.dfm}

procedure TEntierVersHexa.EntierVersHexa( Nbr : integer );
var
  i : integer;
  Quotient : integer;
  Reste : integer;
  H : string;
begin
  H := '';
  for i := 1 to 4 do
  begin
    Quotient := Nbr div 16; { div effectue une division entière }
    Reste := Nbr - Quotient * 16; { Reste vaut entre 0 et 15 }
    if Reste <= 10 then
    begin
      H := chr(Reste + 48) + H; { Reste + 48 vaut entre 48 et 57 }
    end
    else
    begin
      H := chr(Reste + 55) + H; { Reste + 55 vaut entre 65 et 70 }
    end;
    Nbr := Quotient;
  end;
  Label1.Caption := H;
end;

end.

[yvonic2010]

Pas très logique surtout pour un tuto d'appeler une procédure et une Form avec le même nom, bonjour le basard pour retrouver ses petits là dedans.

[gaston11]

merci a vous pour votre aide,
seule la procédure m’était fournie,
je devais me débrouiller pour "l'essayer"

voici le contexte de l'exercice...

j'avoue que je suis perdu avec delphi, je n'ai pas encore réussi a tout saisir... donc j'ai essayé de créer un projet avec un bouton etc...
bref il reste du pain sur la planche!
ps, les affectation sont bien ":=" mais lors du copier/coller ca a du se transformer en ": ="

voici l'exercice

Nous allons créer une procédure qui aura pour rôle d'afficher, dans un Label, la valeur
hexadécimale d'un nombre qui lui est passé comme paramètre. Appelons EntierVersHexa

procedure TForm1.EntierVersHexa( Nbr : integer );
var i : integer;
Quotient : integer;
*
*
*
../..
end;

" Pour tester cette procédure, vous pouvez l'appeler à partir d'une méthode Button1Click d'un
bouton par exemple en tapant :
EntierVersHexa( 3135 );
Remarque : L'exercice ne présente qu'un intérêt pédagogique, en effet Delphi fournit une
fonction nommée IntToHex qui fait la même conversion.

bonsoir a tous

[yvonic2010]

Avec bouton, il faut juste appeler la procédure ce qui donne :

Code :

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
 
unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure EntierVersHexa( Nbr : integer );
  end;
 
var
 Form1 : TForm;
 
implementation
 
 
{$R *.dfm}
 
procedure TForm1.EntierVersHexa( Nbr : integer );
var
  i : integer;
  Quotient : integer;
  Reste : integer;
  H : string;
begin
  H := '';
  for i := 1 to 4 do
  begin
    Quotient := Nbr div 16; { div effectue une division entière }
    Reste := Nbr - Quotient * 16; { Reste vaut entre 0 et 15 }
        if Reste <= 10 then
           begin
             H := chr(Reste + 48) + H; { Reste + 48 vaut entre 48 et 57 }
           end
           else
           begin
             H := chr(Reste + 55) + H; { Reste + 55 vaut entre 65 et 70 }
           end;
  Nbr := Quotient;
  end;
  Label1.Caption := H;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
entiervershexa(236);
end;
 
end.

Juste penser à mettre le bouton et le label dans la Form et ça roule. Moi je me rappelle avoir commencer avec juste une opération à faire entre 2 edit et afficher le résultat dans un label et un showmessage. C'est sympa comme exercice pour maîtriser les trucs de base surtout le inttostr et le strtoint qui servent très régulièrement.

[Rayek]

Code :

1
2
 
Reste := Nbr - Quotient * 16;

Ou simplement

Code :

1
2
 
Reste := Nbr Mod 16;