Terbilang

Function Terbilang..................

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 Tform.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;