İlk önce girdiğin bölüme bak ; görmüyor musun? Delphi..

ya pardon delphiymiş pardon wallahi gormedım

ARTIK MOD YAPIN LAN COCUGU YETER AQ SIKTINIZ!

iyi de abı bu ne? c mi c++ mı? vb mi? vb olmadıgı kesın ya c yada c++ ama bunlardan piyasada tonmlarca war paylasım ıcın sagol

Bunu çok aradım ; buldum, sizlerle de paylaşmak istedim. Kod: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class Edit1: TEdit; Edit2: TEdit; procedure Button1Click ; procedure Edit1Exit ; private public end; var Form1: TForm1; const Birler : Array of string = ; YirmiyeKadar : Array of string = ; Onluklar : Array of string = ; implementation function UcluyuCevir : string; var Donecek: String; begin Donecek := ''; if Length(IntToStr = 3 then // 33333333333333333333333333333 begin Donecek := Birler +'Yüz'; if StrToInt(Copy(IntToStr ,2,2)) < 20 then Donecek := Donecek + YirmiyeKadar ; if StrToInt(Copy(IntToStr ,2,2)) >= 20 then begin Donecek := Donecek + Onluklar ; Donecek := Donecek + Birler ; end; end; if Length(IntToStr = 2 then // 22222222222222222222222222222 begin if StrToInt(Copy(IntToStr ,1,2)) < 20 then Donecek := Donecek + YirmiyeKadar ; if StrToInt(Copy(IntToStr ,1,2)) >= 20 then begin Donecek := Donecek + Onluklar ; Donecek := Donecek + Birler ; end; end; if Length(IntToStr = 1 then // 11111111111111111111111111111 begin if StrToInt(Copy(IntToStr ,1,1)) = 0 then Exit; Donecek := Donecek + Birler ; end; Result := Donecek; end; function YaziyaCevir : string; var a, AlinacakYer, Bolum, Kalan, YaziUzunlugu: Integer; Yazi, Parca: String; begin if CevirilecekSayi = 0 then begin Result := 'Sıfır'; Exit; end; // Tamsayı kısmı Yazi := ''; Bolum := Length(FloatToStr(int div 3; Kalan := Length(FloatToStr(Trunc mod 3; YaziUzunlugu := Length(FloatToStr(Trunc ; for a := 1 to Bolum do begin AlinacakYer := YaziUzunlugu-(a 3)+1; Parca := ''; Parca := UcluyuCevir(StrToInt(Copy(FloatToStr , AlinacakYer,3))); if a = 1 then Yazi := Parca; if (a = 2) and then Yazi := Parca+'Bin'+Yazi; if (a = 3) and then Yazi := Parca+'Milyon'+Yazi; if (a = 4) and then Yazi := Parca+'Milyar'+Yazi; if (a = 5) and then Yazi := Parca+'Trilyon'+Yazi; end; if Kalan > 0 then begin if a = 0 then Yazi := UcluyuCevir(StrToInt(Copy(FloatToStr ,1, Kalan))); if a = 2 then Yazi := UcluyuCevir(StrToInt(Copy(FloatToStr ,1, Kalan)))+'Bin'+Yazi; if a = 3 then Yazi := UcluyuCevir(StrToInt(Copy(FloatToStr ,1, Kalan)))+'Milyon'+Yazi; if a = 4 then Yazi := UcluyuCevir(StrToInt(Copy(FloatToStr ,1, Kalan)))+'Milyar'+Yazi; if a = 5 then Yazi := UcluyuCevir(StrToInt(Copy(FloatToStr ,1, Kalan)))+'Trilyon'+Yazi; end; // Virgüllü kısmı Parca := ''; a := Pos(',', FloatToStr ; if a > 0 then begin if Length(Copy(FloatToStr , a+1,2)) = 1 then Parca := UcluyuCevir(StrToInt(Copy(FloatToStr , a+1,2)+'0')) else Parca := UcluyuCevir(StrToInt(Copy(FloatToStr , a+1,2))); if Parca <> '' then Parca := ' ' + Parca + ' KURUŞ'; end; if Yazi <> '' then Result := Yazi + ' YTL' + Parca; if Yazi = '' then begin Delete(Parca,1,5); Result := Parca; END; END; procedure TForm1. Button1Click ; begin ShowMessage(YaziyaCevir(StrToFloat(edit1. Text))); end; procedure TForm1. Edit1Exit ; begin edit2. Text:=(YaziyaCevir(StrToFloat(edit1. Text))); end; end.

Arkadaşım lütfen güzel konuş, olan bana oluyor. Clonem sanılıyosun, beni küçük düşürüyorsun. Öyle konuşma yönetimin kararı.