Konwersja z systemu dziesiętnego na inny o dowolnej podstawie.

Do sekcji Uses dodajemy StrUtils
Następnie tworzymy tablicę zawierającą szesnaście znaków:

Const
     SignBase : array [0..15] Of String[1] =
        (('0'),('1'),('2'),('3'),('4'),
         ('5'),('6'),('7'),('8'),('9'),
         ('a'),('b'),('c'),('d'),('e'),
         ('f'));

Teraz tworzymy funkcję, do której w postaci parametrów wyślemy liczbę, która będzie poddana konwersji oraz podstawę systemu liczbowego, na który ową liczbę będziemy konwertować. A funkcja zwracać będzie wartość typu String;

Function  DecToAny(Decimal : Integer; Base : byte) : String;

W tworzeniu funkcji skorzystamy z pętli While oraz poleceń div i mod.

    While Decimal <> 0 do \\ wykonuj pętlę dopóki wartość decimal nie osiągnie zera
      Begin
       Result := Result + SignBase[(Decimal Mod Base)];\\ do wyniku funkcji dodajemy znak z utworzonej tablicy za pomocą obliczonej wartości operatora Mod
       Decimal := Decimal div Base; \\ wykonujemy dzielenie obniżając wartość decimal
      End;

Dodajemy jeszcze jedną pętlę While aby wynik z obliczeń dla systemu Dwójkowego i Sześciennego był poprawny.

While (((Length(Result) < 4) And ((Base = 2))
            Or
            ((Length(Result) < 2) And ((Base = 16)))))
            do
      Result := Result + '0';

Na koniec odwracamy String aby był właściwie wyświetlany.

Result := StrUtils.ReverseString(Result);  
End;

Cała funkcja wygląda tak:

Function DecToAny(Decimal : Integer; Base : byte) : String;
Begin
     While Decimal <> 0 do
       Begin
        Result := Result + SignBase[(Decimal Mod Base)];
        Decimal := Decimal div Base;                     
      End;
     While (((Length(Result) < 4) And ((Base = 2))
               Or
               ((Length(Result) < 2) And ((Base = 16)))))
               do 
               Result := Result + '0'; 
     Result := StrUtils.ReverseString(Result); 
End;

Przykład użycia tej funkcji znajduje się w programiku konwersator :
http://4programmers.net/news.php?id=1862