While

21/05/2003

1

Qual o comando para abortar um procedimento While.
Obrigado


Responder

Posts

21/05/2003

Nglauber

break


Responder

21/05/2003

Isadora

exit;

if not valiavel then begin
exit;
end;

Espero que seja isso que você perguntou!
Abraços,
Isadora


Responder

21/05/2003

Nglauber

O Exit saírá de toda a procedure, o break só sairá do laço


Responder

21/05/2003

Nglauber

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´);



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira