Terbilang Pada Program Delphi Borland 7

Berikut adalah satu contoh program untuk mengubah dari suatu angka inputan menjadi outputan huruf.

Komponen Yang dibutuhkan:
1. Label 1 (Masukkan Nilainya)
2. Edit 1
3. Memo 1
4. Button 1 (Terbilang)
5. Button 2 (Close)

Masukkan listing berikut pada button1 (Terbilang).
Function Terbilang(Uang:int64):String;
Begin
If (Uang = 1) Then Terbilang:='Satu '
Else If (Uang = 2) Then Terbilang:='Dua '
Else If (Uang = 3) Then Terbilang:='Tiga '
Else If (Uang = 4) Then Terbilang:='Empat '
Else If (Uang = 5) Then Terbilang:='Lima '
Else If (Uang = 6) Then Terbilang:='Enam '
Else If (Uang = 7) Then Terbilang:='Tujuh '
Else If (Uang = 8) Then Terbilang:='Delapan '
Else If (Uang = 9) Then Terbilang:='Sembilan '
Else If (Uang = 0) Then Terbilang := ' '
Else If (Uang = 10) Then Terbilang := 'Sepuluh '
Else If (Uang = 11) Then Terbilang := 'Sebelas '
Else If (Uang >= 12) And (Uang <= 19) Then Terbilang:=Terbilang(Uang Mod 10) + 'Belas ' Else If (Uang >=20) And (Uang <=99) Then Terbilang := Terbilang(Uang div 10) + 'Puluh ' + Terbilang(Uang Mod 10) Else If (Uang >=100) And (Uang <=199) Then Terbilang := 'Seratus ' + Terbilang(Uang - 100) Else If (Uang >= 200) And (Uang <=999) Then Terbilang := Terbilang(Uang div 100) + 'Ratus ' + Terbilang(Uang Mod 100) Else If (Uang >=1000) And (Uang <=1999) Then Terbilang := 'Seribu ' + Terbilang(Uang - 1000) Else If (Uang >=2000) And (Uang <=999999) Then Terbilang := Terbilang(Uang div 1000) + 'Ribu ' + Terbilang(Uang Mod 1000) Else If (Uang >=1000000) And (Uang <=999999999) Then Terbilang := Terbilang(Uang div 1000000) + 'Juta ' + Terbilang(Uang Mod 1000000) Else If (Uang >=1000000000) And (Uang <=999999999999) Then Terbilang :=Terbilang(Uang div 1000000000) + 'Milyar ' + Terbilang(Uang Mod 1000000000) Else If (Uang >=1000000000000) Then Terbilang :=Terbilang(Uang div 1000000000000) + 'Triliun ' + Terbilang(Uang Mod 1000000000000);
End;
begin
Memo1.Text := Terbilang(StrToInt64(Edit1.Text));
end;

Masukkan listing berikut pada button2 (Close).
begin
close
end;