A scuola di Delphi

Capitolo 1

Numerazione esadecimale

Questo facile programma serve semplicemente per provare ad utilizzare nuovamente il ciclo for, appena appreso, e l'oggetto Memo.
Con la scusa si introdurrà anche la funzione di conversione di un numero in formato esadecimale (IntToHex).

La form dell'applicazione è visibile qui a destra: gli oggetti presenti dovrebbero già essere tutti noti, quindi non ci soffermeremo più ad elencarli ad uno ad uno.

Elenchiamo, però, le relative propietà:

• object FormEsadecimale: TFormEsadecimale
    Caption = 'Esadecimale'
• object LabelNumerazione: TLabel
    Caption = 'Numerazione esadecimale'
• object LabelDa: TLabel
    Caption = 'da'
• object EditN1: TEdit
    Text = '0'
• object LabelA: TLabel
    Caption = 'a'
• object EditN2: TEdit
    Text = '255'
• object Memo: TMemo
    Lines = ''
    ScrollBars = ssVertical
• object BitBtnOK: TBitBtn
    Kind = bkOK
    OnClick = BitBtnOKClick
• object BitBtnChiude: TBitBtn
    Caption = '&Chiude'
    Kind = bkClose

La procedura associata al pulsante OK è la seguente:

procedure TFormEsadecimale.BitBtnOKClick(Sender: TObject);
var
  N1, N2, i: Integer;
begin
  Memo.Lines.Clear;
  N1:=StrToInt(EditN1.Text);
  N2:=StrToInt(EditN2.Text);
  for i:=N1 to N2 do
    Memo.Lines.Add(IntToStr(i)+#9+'$'+IntToHex(i,0));
end;

La funzione IntToHex ha come primo parametro il numero da convertire in esadecimale e come secondo parametro il numero di cifre esadecimali da visualizzare: inserendo 0 il numero di cifre visualizzate è il minimo necessario. Il segno di dollaro ($) inserito davanti al numero esadecimale è un simbolo assai diffuso e sta a significare appunto che il numero è in base 16.

 1.08 - Esadecimale