istenilen kayıt bulunduğunda döngüden nasıl çıkılabilir

[ekin]

for döngüsü yardımı ile tablodan bir kayıt arıyorum. istediğim kaydı bulduğumda döngüden çıkmak istiyorum. exit dediğimde fonksiyondan da çıkıyor.

[poshet303]

break;

[ulu coder]

For değil de while kullansanız?

Kod: Tümünü seç

Var
  dur:boolean;
begin
  dur:=False;
  Table1.First;
  While (Table1.EOF=False) and (dur=False) Do
  begin
    if Table1Ad.AsString='Matrax' Then dur:=True;//Arama kriteri
    Table1.Next;
  end;
  if table1.bof=False Then Table1.Prior;//Diyerek bulunan kayıda geri dönebilirsiniz
end;

[tuanna]

For değil de while kullansanız?

Kod: Tümünü seç

Var
  dur:boolean;
begin
  dur:=False;
  Table1.First;
  While (Table1.EOF=False) and (dur=False) Do
  begin
    if Table1Ad.AsString='Matrax' Then dur:=True;//Arama kriteri
    Table1.Next;
  end;
  if table1.bof=False Then Table1.Prior;//Diyerek bulunan kayıda geri dönebilirsiniz
end;

her yiğidin yoğur yişiyi derler ben de söle yazayım dedim renk olsun diye

begin
Table1.First;
While not Table1.EOF Do
begin
if Table1Ad.AsString='Matrax' Then
begin
break;
end;
Table1.Next;
end;
end;

[rsimsek]

var mısınız bunu biraz daha kısaltalım

Kod: Tümünü seç

begin
  Table1.First;
  While not Table1.EOF and (trim(Table1Ad.AsString) <> 'Matrax') do
    Table1.Next;
end;