Ini buatan saya, sudah dites dan sukses:
function CurrToText(nl : string):string;
const vlstep : array [0..4] of string =
(' ','ribu ','juta ','milyar ','trilyun ');
var i, j, k, panjang, m : integer;
stemp, stemp2, addstr : string;
nl2, nltemp, qtemp : string;
good, belas : boolean;
begin
good := false;
for i:=1 to Length(nl) do
begin
if nl[i] <> '0' then good := true;
if good then nl2 := nl2 + nl[i];
end;
if length(nl2)>15 then nltemp:=Copy(nl2,Length(nl2)-15+1,15)
else nltemp := nl2;
stemp2 := '';
for i:=0 to 4 do
begin
k := Length(nltemp);
if k=0 then break;
if k>=3 then qtemp := Copy(nltemp,Length(nltemp)-2,3)
else qtemp := nltemp;
nltemp := Copy(nltemp,1,Length(nltemp)-3);
stemp := '';
belas := false;
if k>=3 then panjang := 3 else panjang:=k;
m := 4-panjang;
for j:=1 to panjang do
begin
addstr := '';
if qtemp[j] = '9' then addstr := 'sembilan ';
if qtemp[j] = '8' then addstr := 'delapan ';
if qtemp[j] = '7' then addstr := 'tujuh ';
if qtemp[j] = '6' then addstr := 'enam ';
if qtemp[j] = '5' then addstr := 'lima ';
if qtemp[j] = '4' then addstr := 'empat ';
if qtemp[j] = '3' then addstr := 'tiga ';
if qtemp[j] = '2' then addstr := 'dua ';
if qtemp[j] = '1' then
begin
case m of
1,2:case m of
1:addstr := 'se';
2:belas := true;
end;
3: if not belas then
begin
if i=1 then begin
if stemp='' then
addstr := 'se' else addstr := 'satu ' ; end
else addstr := 'satu ';
end
else addstr := 'se';
end;
end;
if qtemp[j] = '0' then if belas then begin
addstr := 'sepuluh '; belas := false;end;
if (addstr <> '')or(belas) then
begin
case m of
1: addstr := addstr + 'ratus ';
2: if not belas then addstr := addstr
+ 'puluh ';
3: if belas then addstr := addstr
+ 'belas ';
end;
end;
stemp := stemp + addstr;
inc(m);
end;
if stemp<>'' then stemp2 := stemp + vlstep[i] +
stemp2;
end;
result := stemp2;
end;
Semoga bisa membantu.
---------------------
Ary
http://www.geocities.com/ary_murthy
--- In [EMAIL PROTECTED], "Ruby" <[EMAIL PROTECTED]> wrote:
> Sorry..., mungkin da basi,
> Mo cari fungsi terbilang dalam delphi dimana ya?
>
> Thank
> Ruby
>
> [Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for Your HP, Epson, Canon or Lexmark
Printer at Myinks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/l.m7sD/LIdGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
