IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Mart 2015, 13:32   #1
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cool tl Dönüştürücü milyara kadar copy insert ile




Cool tl Dönüştürücü milyara kadar copy insert ile


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XPMan; type TForm1 = class(TForm) GroupBox1: TGroupBox; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Button2: TButton; Label1: TLabel; Button3: TButton; Label2: TLabel; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; XPManifest1: TXPManifest; procedure Button1Click(Sender: TObject); Function Hesapla(Sayi_1,Sayi_2:String):String; Function FormatString(Yazi:String):String; Function WriteOutput(Rakam:Integer):String; Function RemoveExcessZeros(Yazi:String):String; procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Sayi : String; implementation {$R *.dfm} Function TForm1.Hesapla(Sayi_1,Sayi_2:String):String; Var Birinci_Sayi : Array[1..100] Of Char; Ikinci_Sayi : Array[1..100] Of Char; Sayi_1_Uzunlugu : Integer; Sayi_2_Uzunlugu : Integer; x,y,z : Integer; Deger_1,Deger_2 : Integer; Alt_Toplam : Integer; Yazi_1 : String; Yazi_2 : String; Ara_Toplam : Integer; Yazi_3 : String; Begin Result:=''; Sayi:=''; Yazi_3:=''; Sayi_1_Uzunlugu:=0; Sayi_2_Uzunlugu:=0; Deger_1:=0; Deger_2:=0; Alt_Toplam:=0; Sayi_1:=FormatString(Sayi_1); Sayi_2:=FormatString(Sayi_2); Sayi_1_Uzunlugu:=Length(Sayi_1); Sayi_2_Uzunlugu:=Length(Sayi_2); Yazi_1:=''; Yazi_2:=''; Yazi_1:=Sayi_1; Yazi_2:=Sayi_2; For x:=100 DownTo 1 Do Birinci_Sayi[x]:=Yazi_1[x]; For y:=100 DownTo 1 Do Ikinci_Sayi[y]:=Yazi_2[y]; Ara_Toplam:=0; For z:=100 DownTo 1 Do Begin Deger_1:=StrToInt(Birinci_Sayi[z]); Deger_2:=StrToInt(Ikinci_Sayi[z]); Alt_Toplam:=Deger_1+Deger_2; If Ara_Toplam>0 Then Begin Alt_Toplam:=Alt_Toplam+Ara_Toplam; Ara_Toplam:=0; End; If Alt_Toplam>9 Then Begin Ara_Toplam:=0; Yazi_3:=''; Ara_Toplam:=Alt_Toplam; Yazi_3:=IntToStr(Alt_Toplam); Result:=WriteOutput(StrToInt(Yazi_3[2])); Ara_Toplam:=StrToInt(Yazi_3[1]); End Else Result:=WriteOutput(Alt_Toplam); End; Result:=RemoveExcessZeros(Result); End; Function TForm1.FormatString(Yazi:String):String; Var Hane_No : Integer; Begin Result:=''; For Hane_No:=1 To 100-Length(Yazi) Do Yazi:='0'+Yazi; Result:=Yazi; End; Function TForm1.WriteOutput(Rakam:Integer):String; Begin Result:=''; Sayi:=IntToStr(Rakam)+Sayi; Result:=Sayi; End; Function TForm1.RemoveExcessZeros(Yazi:String):String; Var Yeni_Yazi : String; Load : Boolean; Hane_No : Integer; Begin Result:=''; Yeni_Yazi:=''; Load:=False; For Hane_No:=1 To Length(Yazi) Do Begin If Yazi[Hane_No]<>'0' Then Load:=True; If Load=False Then Begin If Yazi[Hane_No]<>'0' Then Load:=True; End Else Yeni_Yazi:=Yeni_Yazi+Yazi[Hane_No]; End; Result:=Yeni_Yazi; End; procedure TForm1.Button1Click(Sender: TObject); var a,b,c:real48; begin a:=strtofloat(edit1.Text); b:=strtofloat(edit2.Text); c:=a+b; edit3.Text:=floattostr(c) end; procedure TForm1.Button2Click(Sender: TObject); begin label1.Caption:=Hesapla(edit1.Text,edit2.Text); end; procedure TForm1.Button3Click(Sender: TObject); var z:integer; k,y,x:string; begin if (length(edit3.Text))=2 then begin z:=length(edit3.Text); x:=edit3.Text; y:=copy(x,z-1,2); label2.Caption:='0'+','+y; k:=edit1.Text; delete(k,z-1,2); edit1.Text:=k; end; end; procedure TForm1.Button4Click(Sender: TObject); var z:integer; a,k,y,x:string; begin if (length(edit3.Text))=3 then begin z:=length(edit3.Text); x:=edit3.Text; y:=copy(x,z-1,2); delete(k,z-1,2); a:=copy(x,z-2,1); label2.Caption:=a+','+y; end; end; procedure TForm1.Button5Click(Sender: TObject); var z:integer; a,k,y,x:string; begin if (length(edit3.Text))=4 then begin z:=length(edit3.Text); x:=edit3.Text; y:=copy(x,z-1,2); delete(k,z-1,2); a:=copy(x,z-3,2); label2.Caption:=a+','+y; end; end; procedure TForm1.Button6Click(Sender: TObject); var z:integer; a,k,y,x:string; begin if (length(edit3.Text))=5 then begin z:=length(edit3.Text); x:=edit3.Text; y:=copy(x,z-1,2); delete(k,z-1,2); a:=copy(x,z-4,3); label2.Caption:=a+','+y; end; end; procedure TForm1.Button7Click(Sender: TObject); var z:integer; ff,aa,a,k,y,x:string; begin if (length(edit3.Text))=6 then begin aa:=','; z:=length(edit3.Text); x:=edit3.Text; y:=copy(x,z-1,2); delete(k,z-1,2); a:=copy(x,z-5,4); label2.Caption:=a+','+y; ff:=label2.Caption; insert(aa,ff,2); label2.Caption:=ff; end; end; procedure TForm1.Button8Click(Sender: TObject); var z:integer; ff,aa,a,k,y,x:string; begin if (length(edit3.Text))=8 then begin aa:=','; z:=length(edit3.Text); x:=edit3.Text; y:=copy(x,z-1,2); delete(k,z-1,2); a:=copy(x,z-7,6); label2.Caption:=a+','+y; ff:=label2.Caption; insert(aa,ff,4); label2.Caption:=ff; end; end; procedure TForm1.Button9Click(Sender: TObject); var z:integer; ff,aa,a,k,y,x:string; begin if (length(edit3.Text))=7 then begin aa:=','; z:=length(edit3.Text); x:=edit3.Text; y:=copy(x,z-1,2); delete(k,z-1,2); a:=copy(x,z-6,5); label2.Caption:=a+','+y; ff:=label2.Caption; insert(aa,ff,3); label2.Caption:=ff; end; end; procedure TForm1.FormCreate(Sender: TObject); begin label1.Hide; end;


__________________
SusKun ve Sessiz Mürekkep...


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
cool, cool tl dönüştürücü milyara kadar copy insert, copy, dönüştürücü, ile, insert, kadar, milyara, tl


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Katalitik Dönüştürücü PySSyCaT Çevre Terimleri Sözlüğü 0 28 Eylül 2014 20:48
SQL INSERT cümleleri Fonzerelli MsSQL 0 09 Aralık 2010 13:38