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 : 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
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.
Partager