ForumSevgisi.Com

  ForumSevgisi.Com > ForumSevgisi Webmaster Bölümü > Webmaster Genel

Webmaster Genel Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


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

Webmasterlıkla ilgili Her şeyin Paylaşıldığı Bölüm.


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

ForumSevgisi Webmaster Bölümü Kategorisinde ve Webmaster Genel Forumunda Bulunan Cool TL Dönüştürücü milyara kadar copy insert ile Konusunu Görüntülemektesiniz,Konu İçerigi Kısaca ->> 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: unit Unit1; interface ...

Kullanıcı Etiket Listesi

Yeni Konu aç  Cevapla
LinkBack Seçenekler Stil

Okunmamış 09 Nisan 2015, 16:23   #1
Durumu:
Çevrimdışı
Kaf_Dağı - ait Kullanıcı Resmi (Avatar)
Arastirmaci
Üyelik tarihi: 26 Ekim 2014
Şehir: ~~~~~~
Mesajlar: 1.130
Konular: 710
Beğenilen: 168
Beğendiği: 334
www.forumsevgisi.com
Standart Cool TL Dönüştürücü milyara kadar copy insert ile

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:
        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;

________________
.........................
imza
Alıntı ile Cevapla
Yeni Konu aç  Cevapla

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

Seçenekler
Stil


Saat: 20:05

Forum Yasal Uyarı
vBulletin® ile Oluşturuldu
Copyright © 2016 vBulletin Solutions, Inc. All rights reserved.

ForumSevgisi.Com Her Hakkı Saklıdır
Tema Tasarım:
Kronik Depresif


Sitemiz bir 'paylaşım' sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabiliyorlar. Bu sebepten ötürü, sitemizdeki mesaj ya da konulardan doğabilecek yasal sorumluluklar o yazıyı paylaşan kullanıcıya aittir ve iletişim adresine mail atıldığı taktirde mesaj ya da konu en fazla 48 saat içerisinde silinecektir.

ankara escort, izmir escort ankara escort, ankara escort bayan, eryaman escort, bursa escort pendik escort, antalya escort,