While

Question

Qual o comando para abortar um procedimento While.Obrigado...

Nglauber · Answer

break...

Isadora · Answer

exit;if not valiavel then begin  exit;end;Espero que seja isso que voc� perguntou!Abra�os,Isadora...

Nglauber · Answer

O Exit sa�r� de toda a procedure, o break s� sair� do la�o...

Nglauber · Answer

O Exit sa�r� de toda a procedure, o break s� sair� do la�o
Isso sair� do la�o, e executar� a ShowMessage(�FIM�).

procedure TForm1.Button1Click(Sender: TObject);
var
    i : Integer;
begin
    for i := 0 to 10 do
    begin
        ShowMessage(InttoStr(i));
        if i = 5 then break;
    end;
    ShowMessage(�fim�);

Isso Sair� da procedure e N�O executar� a showmessage(�fim�)

procedure TForm1.Button1Click(Sender: TObject);
var
    i : Integer;
begin
    for i := 0 to 10 do
    begin
        ShowMessage(InttoStr(i));
        if i = 5 then exit;
    end;
    ShowMessage(�fim�);