Italian community of Lazarus and Free Pascal

Function Decimale_To_Esadecimale(Valore : Integer) : String;
Const
  Digit : String = '0123456789ABCDEF'; // Questi sono i digit validi
Var
  Resto : Integer;
  S     : String;
Begin
  // ------------------------------------
  // Inizializzazione della stringa
  // ------------------------------------
  S := '';

  // ------------------------------------
  // Ciclo di conversione
  // ------------------------------------
  Repeat
    // ------------------------------------
    // Calcolo resto della divisione
    // ------------------------------------
    Resto := Valore Mod 16;

    // ------------------------------------
    // Ricalcolo del valore
    // ------------------------------------
    Valore := Valore Div 16;
    
    // ------------------------------------
    // Costruzione della stringa
    // ------------------------------------
    S := Copy(Digit, Resto+1) + S;
  Until (Valore = 0);

  // ------------------------------------
  // Settaggio uscita
  // ------------------------------------  
  Result := S;
End;

Function Esadecimale_To_Decimale(Valore : String) : Integer;
Const
  Digit : String = '0123456789ABCDEF'; // Questi sono i digit validi
Var
  Moltiplicatore : Integer;
  Risultato      : Integer;
  S              : String;
Begin
  // ------------------------------------
  // Inizializzzazioni
  // ------------------------------------
  Moltiplicatore := 1;
  Risultato      := 0;
  
  // ------------------------------------
  // Ciclo di conversione
  // ------------------------------------
  While (Valore <> '') Do
        Begin
          // ------------------------------------
          // Prelevamento digit più a destra
          // ------------------------------------
          S := Copy(Valore, Length(Valore), 1);
          
          // ------------------------------------
          // Aggiornamento risultato
          // ------------------------------------
          Risultato := Risultato + Pos(S, Digit)*Moltiplicatore;
          
          // ------------------------------------
          // Eliminazione digit più a destra
          // ------------------------------------
          Delete(Valore, Length(Valore), 1);
          
          // ------------------------------------
          // Aggiornamento fattore 
          // ------------------------------------
          Moltiplicatore := Moltiplicatore * 16;
        End; 
        
   // ------------------------------------
   // Settaggio uscita
   // ------------------------------------ 
   Result := Risultato;
End;

Function Decimale_To_Base(Valore, Base : Integer) : String;
Const
  Digit : String = '0123456789ABCDEF'; // Questi sono i digit validi
Var
  Resto : Integer;
  S     : String;
Begin
  // ------------------------------------
  // Inizializzazione della stringa
  // ------------------------------------
  S := '';

  // ------------------------------------
  // Ciclo di conversione
  // ------------------------------------
  Repeat
    // ------------------------------------
    // Calcolo resto della divisione
    // ------------------------------------
    Resto := Valore Mod Base;

    // ------------------------------------
    // Ricalcolo del valore
    // ------------------------------------
    Valore := Valore Div Base;
    
    // ------------------------------------
    // Costruzione della stringa
    // ------------------------------------
    S := Copy(Digit, Resto+1) + S;
  Until (Valore = 0);

  // ------------------------------------
  // Settaggio uscita
  // ------------------------------------  
  Result := S;
End;

Function Base_To_Decimale(Valore : String; Base : Integer) : Integer;
Const
  Digit : String = '0123456789ABCDEF'; // Questi sono i digit validi
Var
  Moltiplicatore : Integer;
  Risultato      : Integer;
  S              : String;
Begin
  // ------------------------------------
  // Inizializzzazioni
  // ------------------------------------
  Moltiplicatore := 1;
  Risultato      := 0;
  
  // ------------------------------------
  // Ciclo di conversione
  // ------------------------------------
  While (Valore <> '') Do
        Begin
          // ------------------------------------
          // Prelevamento digit più a destra
          // ------------------------------------
          S := Copy(Valore, Length(Valore), 1);
          
          // ------------------------------------
          // Aggiornamento risultato
          // ------------------------------------
          Risultato := Risultato + Pos(S, Digit)*Moltiplicatore;
          
          // ------------------------------------
          // Eliminazione digit più a destra
          // ------------------------------------
          Delete(Valore, Length(Valore), 1);
          
          // ------------------------------------
          // Aggiornamento fattore 
          // ------------------------------------
          Moltiplicatore := Moltiplicatore * Base;
        End; 
        
   // ------------------------------------
   // Settaggio uscita
   // ------------------------------------ 
   Result := Risultato;
End;

Function IntToHex(Valore, Lunghezza) : String;

IntToHex(16, 1) ritorna 'F'
IntToHex(16, 2) ritorna '0F'

Function StrToInt(Stringa) : Integer;

StrToInt('$F') ritorna 16
StrToInt('16') ritorna 16
StrToInt('0F') ritorna un errore in quanto 0F non è un numero decimale valido