koşul vermek

[rapsodim]

belirli koşula göre bir dizi işlem yaptırmak istiyorum.şöyle ki
eğer koşul doğru ise şu işlemleri yap ve koşul doğru olana kadar yapacak değilse tekrar koşulu kontrol edecek yani başa dönecek table bitene kadar sürecek ve son kayıta geldiğinde dosyayı kapatacak(yazma yaptıracagım) burda hangi komut if koşuluna dallanmasını sağlar tşkr ederim

[aslangeri]

S.A.
öncelikle sorunun tam anlaşılır olmadığınız belirtmek istiyorum.
Anladığım kadarıyla tablondaki kayıtları sıra ile taramak ve kayıtlardaki bir alana göre işlemler yaptırmak istiyorsun.
Şöyle bir mantık izlemeni öneririm...

Kod: Tümünü seç

table1.open;
table1.first;//bu satıra gerek yok ama tablon eğer zaten açıksa döngüden önce yazman iyi olur.
while not table1.eof do
begin
  if tablo1alanadi.value={<>}değer then
  begin
     //koşul uygunsa {veya değilse} yapmak istediğin işlemler
       {eğer işlemi yaptıktan sonra tekrar aynı kayıtı tekrar kontrol etmek istiyorsan }
    Continue;
  end;
  table1.next;
End;

anladığım kadarı ile böyle bir yapı oluşturman lazım.
Eğer yapmak istediğin şeyi daha net yazarsan daha net sonuçlar alabilirsin. Kolay gelsin.

[pentiumkivanc]

Sorunu açık sormamışsın..
pascal de ve delphi de label oluşturup daha sonra goto komutuyla program satırları arasında dallama yaptırabilirsin (bu yöntemin amatörce olduğunu söylerler) birde case ... of .. end blokları var tabi. Bunları araştırabilirsin