BoDyGuArD

Virgül ile Ayrılmış Sayıyı Yazıya ÇEvirmek
function Cevir(Val : extended) : String;
const
hanex : array[0..2 '0'..'9'] of String = (
('' 'Bir ' 'İki ' 'Üç ' 'Dört ' 'Beş ' 'Altı ' 'Yedi ' 'Sekiz ' 'Dokuz ')
('' 'On ' 'Yirmi ' 'Otuz ' 'Kırk ' 'Elli ' 'Atmış ' 'Yetmiş ' '****en ' 'Doksan ')
('' 'Yüz ' 'İki Yüz ' 'Üç Yüz ' 'Dört Yüz ' 'Beş Yüz ' 'Altı Yüz ' 'Yedi Yüz ' 'Sekiz Yüz ' 'Dokuz Yüz '));
katx : array[0..5] of String = ('' 'Bin ' 'Milyon ' 'Milyar ' 'Trilyon ' 'Katrilyon ');
var
Kat : Integer;
function _Cevir(sy : String) : String;
var
lsy hn : Integer;
begin

Result := ''; if sy = '' then Exit;
if (sy = '1') and (kat = 1) then begin Result := 'Bin'; Exit; end;
hn := 0; lsy := length(sy);
while (hn < 3) and (hn < lsy)
do
begin

Result := hanex[hn sy[lsy - hn]] + Result;
Inc(hn);
end;
Result := Result + katx[kat];
Inc(kat);
if lsy > 3 then Result := _Cevir(copy(sy 1 lsy - 3)) + Result;
end;
begin
Result := ''; kat := 0;
Result := _Cevir(formatFloat('##0' int(Val)));
end;
function TExCevir(e:extended):string;
var
e1e2:Extended;
lenE2:integer;
s1s2:string;
const virgul : array[0..20] of string = (
'''Onda''Yüzde''Binde''Onbinde'
'Yüzbinde''Milyonda''Onmilyonda''Yüzmilyonda'' Milyarda'
'Onmilyarda''Yüzmilyarda''Trilyonda''Ontrilyond a''Yüztrilyonda'
'Katrilyonda''Onkatrilyonda''Yüzkatrilyonda''Ka trilyarda''Onkatrilyarda''Yüzkatrilyarda');
begin
e1:=Int(e);
e2:=e-e1;
lenE2:=StrLen(PChar(FloatToStr(e2)));
e2:=e2 * Power(10lenE2-2);
s1:=Cevir(e1);
s2:=Cevir(e2);
lenE2:=StrLen(PChar(FloatToStr(e2)));
if e2<>0 then
begin
Result:=s1 + ' tam ' + virgul[lenE2] + ' ' + s2;
end
else
begin
Result:=s1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(TExCevir(StrToFloat(edit1.Text)));

end;
//