Delphi Forum

function Basamak(const i:Int):String;
begin
case i of
1:Result:='Bin';
2:Result:='Milyon';
3:Result:='Milyar';
4:Result:='Trilyon';
5:Result:='Katrilyon';
6:Result:='Kentrilyon';
else
Result:='';
end;
end;

function Onlar(const i:Int):String;
begin
case i of
1:Result:='On';
2 ...