Dongu bitiminde toplama

[Ahmet ALTUNTAŞ]

Kod: Tümünü seç

var s:string;
a,x:integer;
begin
x:=0;
for a:=0 to QryHesapla.recordcount -1 do
begin
s:=floattostr(MinuteSpan(StrtoDatetime(QryHesaplaGirisSaati.text),(strtodatetime(QryHesaplaCikisSaati.Text))));
x:=x+strtoint(s);
Edit3.text:=inttostr(x);
QryHesapla.next;
end;
end;

merhaba arkadaşlar
yukarıdaki kodda iki saat arasıdaki farkı bulup edit3 içerisine yazdırıyorum.
Ama bir alanım daha var örnegin içerisindeki deger 3600.ben bu dongunun bitiminde 3600 sayısını edit3 içerisindeki dongu sonunda cıkan sayıyla toplayıp edit3 'un degerını edi3 + 3600 olarak degiştirmek istiyorum.Edit3+3600 dedigimde dongu sona ermedıgı ıcın sureklı her dongude 3600 ekleyerek devam edıyor.

[thelvaci]

O halde toplama işlemini neden döngünün sonunda yapmıyorsunuz ?

[conari]

Kod: Tümünü seç

x:=x+strtoint(s);
//Edit3.text:=inttostr(x); //buradan çıkarıyoruz
QryHesapla.next;
end;
Edit3.text:=inttostr(x)+3600; // burada 3600 ekle
end;

[Ahmet ALTUNTAŞ]

Cevap için teşekkür ederim arkadaşlar.
Sorunu şu şekilde hallettim.


if QryHesapla.Eof then

[hi_selamlar]

MCP - MCTS
MCSA+S - MCSE+S