BREAK- EXIT

[شفیعی]

سلام
برای خروج از حلقه زیر از چه دستور باید استفاده کرد


procedure TForm6.Button2Click(Sender: TObject);
VAR I:INTEGER;
begin
FORM6.Caption:=(SENDER AS TButton).Name;
IF (SENDER AS TButton).Name ='Button2' THEN
DM.TNAGH.First;
WHILE NOT DM.TNAGH.Eof DO
BEGIN
FOR I:=0 TO DM.TNAGH.FieldCount-2 DO
IF POS(EDIT2.Text,DM.TNAGH.Fields[I].AsString) > 0 THEN
BREAK;
DM.TNAGH.Next;
END;
end;

دستور BREAK کار نمی کند

[ghabil]

Break کار میکنه ولی از حلقه For خارجت میکنه بهترین کار اینه که یک Flag بگیری و تو شرط while بزاری یعنی while not eof and AFlag بعد بجای اینکه Break کنی Flag رو False کنی

[shayan_delphi]

دستور ;Exit

[m-khorsandi]

از کدوم حلقه؟ (For یا While)

[شفیعی]

سلام
می خواهیم وقتی شرط بر قرار شد از هر دو حلقه خارج شویم (For یا While)

[Delphi Skyline]

میتونی از Goto استفاده کنی . البته یکمی دور از ساخت یافتگیه ها .

[shobair]

سلام
ترکیب کن هم استفاده از Flag و هم دستور Break.
While (NOT DM.TNAGH.Eof) and (Flag) DO
.
.
دستور زیر If رو هم بذار
begin
Flag:=false
Break
end

شبیر

[Arash_j13]

یه استثنا خاموش به کمک تابع abort برپا کنید تا به بیرونی ترین حلقه برنامه که همون حلقه اصلی applicaion هست برگردید