Sayı Artırma !!

[ozcank]

Arkadaşlar;
DBEdit1 ve DBEdit30 a mesela

DBEdit1.Text'e 1 kodunu verdiğim zaman DBEdit30.Text'e de 1 kodu gelecek ve DBEdit1.Text deki kod değişmedikce DBEdit30.Text artarak gidecek eğer DBEdit1.Text 2 kodunu alırsa DBEdit30.Text'de 1 olacak ve artacak bunu nasıl yapabilirim yardım edermisiniz?

[vesper]

dbedit30 un saymasını istediğini düşündüm anlattıklarından. Dbedit1 deki değer değişirse dbedit30 1.2.3... diye sayacak ve dbedit1 tekrar değiştiğinde dbedit30 gene sayacak gibi bir soru ise sorduğun timer kullanabilirsin dbedit1 change eventinde timerı çalıştırır dbedit30u 1 değerine döndürür ve her saniyede yada istediğin zaman diliminde dbedit30 u arttırırsın. Umarım sorduğunu yanlış anlamamışımdır kolay gelsin

[ozcank]

Doğru anlamışsın fakat Timer değilde müşteri enter e bastığı zaman DBEdit1 eğer yeni kod varsa müşteri hareket işledikçe DBEdit30 1.2.3... değeri alacak.Kodu değiştirirse DBEdit30 tekrar 1.2.3.... den devam edecek ama bu müşteri entere bastıkca devam edecek.

[naile]

DBEdit30 un onEnter eventına;

Kod: Tümünü seç

if DBEdit30.text = '' then
  DBEdit30.Text := '1';

onkeypress eventına da;

Kod: Tümünü seç

 
if key = #13 then
  DBEdit30.text := inc(StrToInt(DBEdit30.Text));

[ozcank]

dediğiniz gibi eklediğimde

DBEdit30.text := inc(StrToInt(DBEdit30.Text)); satır da

bu hatayı alıyorum
[Error] ISILGIRIS2.pas(673): Left side cannot be assigned to

[hbahadir]

inc procedure'ı herhangi bir sonuç döndürmez. ilk önce procedure ve function'lar hakkında biraz bilgi edinin derim ben.

[ozcank]

yardımcı olurmusun nasıl cözebilirim? veya başka yolu var mı?

[hbahadir]

DBEdit30.text := IntToStr(StrToInt(DBEdit30.Text)+1);

[ozcank]

Sayı artırmıyor? benmi yanlış yere ekledim acaba?

procedure TForm5.DBEdit30KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
DBEdit30.text:=IntToStr(StrToInt(DBEdit30.Text)+1);
end;

[mnt]

Yanlış yer değil, Dataset edit modunda mı? DBEdit30.text yerine ona bağlı TField'ın veya Table'ın özelliklerini kullanmanı tavsiye ederim.. Value veya FieldByName.