Toplama?

[umutcanster]

mesela memo'da "25" rakamı mevcut biz memoya "5" rakamı daha eklersek :

25
5

oluyor, benim takıldıgım yer işe şu;mesela memoya bir rakam daha eklemek istediğimizde 25/5 değilde direk 30 olarak toplam bir sayı çıksa? zor mudur? yeni yeni öğreniyorumda delphiyi

[CiTiZEN]

merhabalar, basit olarak:

Kod: Tümünü seç

var d,d1:double;
begin
if Memo1.Lines.Count>=2 then
begin
  d:=StrToFloat(Memo1.Lines[0]);
  d1:=StrToFloat(Memo1.Lines[1]);
  Memo1.Lines[0]:=FloatToStr(d+d1);
  Memo1.Lines.Delete(1);
end;
  Memo1.Lines.Add(Edit1.Text);
end;

[umutcanster]

merhaba hocam kodu button'a yazdım hata vermedi:
editte 32 sayısı vardı butona bastım ekledi tekrar edite 12 sayısı ekledim butona bastıgımda ;
"memo1 is not valid a floating point value" hatası verdi

[CiTiZEN]

merhaba, eğer memonun 0 ve 1. satırında 0 ve 9 arası rakamlardan başka içerik varsa ondan dolayıdır, kodda 0. ve 1. satır toplanıp 0. satıra yazılır yani bu işlemden önce memonun içini temizlemelisiniz.