While

Delphi

21/05/2003

Qual o comando para abortar um procedimento While.
Obrigado


Rubens Junior

Rubens Junior

Curtidas 0

Respostas

Nglauber

Nglauber

21/05/2003

break


GOSTEI 0
Isadora

Isadora

21/05/2003

exit;

if not valiavel then begin
exit;
end;

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


GOSTEI 0
Nglauber

Nglauber

21/05/2003

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


GOSTEI 0
Nglauber

Nglauber

21/05/2003

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



GOSTEI 0
POSTAR