Tablodaki sabit bi integer değeri bir sayı eksiltmek?

[ozerarinc]

Merhaba arkadaşlar,

Delphide askerlik ile ilgili program yazıyorum, şimdi bildiğiniz üzere askerlik süresi uzun dönem 460 gün, ben mysql'de tabloma sure ile ilgili tabloya 460 degerini girdim.
Fakat hergün basılacak düş adlı butona tıkladığım zaman bu sayı bir eksilecek. Fakat kod kısmına gelince memoya ekleyeceğim değer 460'dan 0'a doğru sayıyor, birer birer düşüremiyorum, bunu nasıl aşabilirim.

[esrehmaan]

buttonun şöyle olmalı
tablondaki 460 gün değerinin integer alanda olduğunu farz ediyorum

Kod: Tümünü seç

var
gun:integer;
begin
tabel1.edit;
gun:=table1gunsayisi.value;
gun:=gunsayisi-1;
table1gunsayisi.value:=sayisi;
tabel1.post;

teorik olarak yaptım... bunu dene eğer olmaz ise kullandığın componenti ve mysql alanlarını verirsen yardımcı olurum

[adnansirca]

for döngüsü ile bu işlemi yapabilirsiniz.
tablonuzda başlangıç tarihi(DATE), kalan gün sayısı(INTEGER),askerlik süresi(INTEGER) isimli alanlar bulunsun.
Buna göre aşağıdaki yapıyı deneyin.

Kod: Tümünü seç

var
  i,askerlikSure,kalan : Integer;
  basTar,sonTar,bugun : TDate;
begin
  ListBox1.Clear;//Her seferinde listeyi boşaltıyoruz.
  askerlikSure := askerTabloaskerSure.AsInteger;//Kaç gün askerlik yapacağını tablodan aldık.
  basTar := askerTablobasTarih.AsDateTime;//Askere başladığı tarihi aldık. askerTablo tablonuzun adı basTarih alan adı
  sonTar := basTar+askerlikSure;//Teskere tarihi
  bugun := Date;
  kalan := Trunc(sonTar-bugun);// Kaç gün kaldığını öğrendik.
  Edit2.Text := IntToStr(kalan);// Kalan günü formda gösterdik.
  for i := kalan DownTo 1 do
    ListBox1.Items.Add(IntToStr(i));
  Edit1.Text := ListBox1.Items[0];//Listenin en üstündeki değer kalan günü gösteriyor. Bu değeri edit1 e aktarmış olduk.
end;

[ozerarinc]

Arkadaşlar çok teşekkür ederim yardımlarınız için, inanın bu basit şey için düşün düşün çıkamıyordum işin içinden, çok sağolun ALLAH işinizi gücünüzü rast getirsin inşallah.

[orhancc]

Askerlik başlangıç tarihini yazsan da günün tarihini ile arasındaki gün sayısını bulup 460 dan çıkarsan daha kolay olmaz mı ?