Başlangıç > Kodlar > Delphi ile Editleri formatlı yazdırıp matematiksel işlem yapmak

Delphi ile Editleri formatlı yazdırıp matematiksel işlem yapmak


Editleri bimler hanesine ayırıp aynı anda matemetiksel işlem yapabilirsiniz.

procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.Text<>" then
begin
edit1.Text:=formatfloat('#,##',strtofloat(StringReplace(Edit1.Text,'.',",[rfreplaceall])));
edit1.SelStart :=length(edit1.text);
edit3.Text:=floattostr(strtofloat(StringReplace(Edit1.Text,'.',",[rfreplaceall]))+strtofloat(StringReplace(Edit2.Text,'.',",[rfreplaceall])));
edit3.Text:=formatfloat('#,##',strtofloat(StringReplace(Edit3.Text,'.',",[rfreplaceall])));
end;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
if edit2.Text<>" then
begin
edit2.Text:=formatfloat('#,##',strtofloat(StringReplace(Edit2.Text,'.',",[rfreplaceall])));
edit2.SelStart :=length(edit1.text);
edit3.Text:=floattostr(strtofloat(StringReplace(Edit1.Text,'.',",[rfreplaceall]))+strtofloat(StringReplace(Edit2.Text,'.',",[rfreplaceall])));
edit3.Text:=formatfloat('#,##',strtofloat(StringReplace(Edit3.Text,'.',",[rfreplaceall])));
end;
end;


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: