Delphi de Repeat Until Komutunun Kullanimi

Delphi de Repeat Until Komutunun Kullanimi

Delphide kullanilan döngülerden biride Repeat until döngüsüdür. Bu döngüde Repeat ile until arasindaki blok Until kelimesinden sonraki kontrol sarti yanlis oldukça çalisacaktir. Yani Untildeki karsilastirma dogru çikana kadar döngüden çikilmaz. Bu döngüde kontrol sonda yapildigi için döngüden hemen çikilsa bile döngü içerisindeki kod en az bir defa çalistirilacaktir. Buna dikkat edilmelidir. Eger ters karsilastirma yapilmasi isteniyorsa yani sart olustugunda döngüden çikilmasi isteniyorsa döngü Not operatörü ile kullanilabilir.

Asagida DBGrid içinde bulunan “Toplam” sütunu içerisindeki rakamlari (Real veya Currency) tüm satirlarini toplatip Label1 içerisine yazan program .

procedure TForm1.Button2Click(Sender: TObject);
var toplam:real;
begin
      toplam:=0;
      Adotable1.First;
      Repeat
           Toplam:=Toplam+Adotable1Toplam.AsCurrency;
           Adotable1.Next;
       Until(Adotable1.Eof) 
       Label1.Caption:=FloatToStr(toplam);
end;

Yazan : hsn

Tarih :12.11.2010 19:54:24

yeni başlayanın anlamaması için yazılmış bir örnek.Çöplükten başka bişey değil.

Yazan :

Başlık :

Tarih :

Sorununuz :

Güvenlik Kodu :