Afslut procedure/funktion

brug "timeren"

Exit;

procedure eks;
begin
if(slutnu = true) then Exit;
end;

Ja og det samme gælder selvfølgelig for funktioner =)

Det bør måske lige siges at hvis du f.eks. skal afslutte et loop, så kan du bruge Break i stedet... Det slutter kun loopet og altså ikke hele procedure'n/funktionen... ;)

F.eks.

var
  I: Integer;
begin
  I := 1;
  while True do
  begin
    I := I*(I+1);
    if I > 100 then Break;
  end;
  ShowMessage(IntToStr(I));
end;