Tulisan ini tidak akan membahas cara pembuatan komponennya, Anda tinggal langsung bisa download komponennya (ada pada bagian bawah tulisan ini) dan langsung diinstall. Komponen ini bisa digunakan pada Delphi 5 dan 6. Delphi 7 belum dicoba tetapi semestinya bisa dicoba. Rutin dari proses konversi dari angka menjadi numerik pada komponen ini akan ditampilkan sebagai berikut:

const
Satu = 'satu ';
Belas = 'belas ';
Angka : array[1..9]of string = ('se','dua ','tiga ','empat ',
'lima ','enam ','tujuh ','delapan ',
'sembilan ');
Satuan3 : array[1..2]of string = ('ratus ','puluh ');
Satuan : array[0..3]of string = ('','ribu ','juta ','milyar ');

function TATTerbilang.GetTerbilang:string;
var
tmp,tmp2 : string;
TStr : TStringList;
i,j : integer;
begin
TStr:=TStringList.Create;
tmp :=format('%0.0n',[strtofloat(inttostr(FNumber))])+ThousandSeparator;
while tmp <> '' do
begin
TStr.Insert(0,copy(tmp,1,pos(ThousandSeparator,tmp)-1));
delete(tmp,1,pos(ThousandSeparator,tmp));
end;
for i:=0 to TStr.Count-1 do
TStr.Strings[i] :=format('%0.3d',[strtoint(TStr.Strings[i])]);
for i:=TStr.Count-1 downto 0 do
begin
tmp :=TStr.Strings[i];
for j:=1 to 3 do
begin
if tmp[j] = '0' then continue;
case j of
1 : if tmp[j] <> '0' then
tmp2 := tmp2 + Angka[strtoint(tmp[j])] + Satuan3[j];
2 : case tmp[j] of
'1' : begin
case tmp[j+1] of
'0' : tmp2 := tmp2 + Angka[strtoint(tmp[j])] + Satuan3[j];
'1'..'9' : tmp2 := tmp2 + Angka[strtoint(tmp[j+1])] + Belas;
end;
break;
end;
'2'..'9' : tmp2 := tmp2 + Angka[strtoint(tmp[j])] + Satuan3[j];
end;
3 : case tmp[j] of
'1' : case FNumber of
1 : tmp2 := tmp2 + Satu;
1000..1999: if i = 0 then
tmp2 := tmp2 + Satu
else
tmp2 := tmp2 + Angka[strtoint(tmp[j])];
else
tmp2 :=tmp2 + Satu;
end;
else
tmp2 := tmp2 + Angka[strtoint(tmp[j])];
end;
end;
end;
if strtoint(tmp) <> 0 then
tmp2 := tmp2 + Satuan[i];
end;
TStr.Free;
result :=Trim(tmp2);
end;

Code di atas adalah potongan dari full code yang membentuk komponen delphi terbilang ini.

Install komponen ini pada Delphi dan silakan Anda coba menggunakannya. Caranya mudah saja. Komponen ini memiliki dua properti yang penting yaitu Number dan Terbilang. Anda cukup memasukkan angka yang hendak Anda konversikan pada properti Number dan hasilnya bisa dilihat pada properti Terbilang. Komponen yang diberi nama ATTerbilang ini akan terinstall pada tab komponen yang berlabel AriTech.

Sekian dulu, segala saran dan komentar silakan layangkan ke sini.

Untuk men-download source code komponen ATTerbilang silakan klik di sini. Dilengkapi juga dengan readme nya.

Terimakasih.

Lihat keterangan gambar di bawah.

Object Inspector Komponen ATTerbilang