GIV>Привел бы код что-ли, а о твое описание адово как-то звучит.

Я уже забыл когда конкретно было нужно exit[1], ну вот близкий пример:

result:=false;
for i := 0 to count-1 do 
  begin
    if value[i]=-1 then exit;
    newvalue[i] := value[i];
  end;
result:=true;

И что бы могло потребоваться:

function GetValue(valindex:integer):double;
  begin
    result := value[valueindex];
    if result=-1 then exit[1];
  end;

begin
result:=false;
for i := 0 to count-1 do 
  begin
    newvalue[i] := getvalue(i);
  end;
result:=true;

Пример довольно неказистый, но надеюсь понятный.

GIV>Привел бы код что-ли, а о твое описание адово как-то звучит.

Я уже забыл когда конкретно было нужно exit[1], ну вот близкий пример:

result:=false;
for i := 0 to count-1 do 
  begin
    if value[i]=-1 then exit;
    newvalue[i] := value[i];
  end;
result:=true;

И что бы могло потребоваться:

function GetValue(valindex:integer):integer;
  begin
    result := value[valueindex];
    if result=-1 then exit[1];
  end;

begin
result:=false;
for i := 0 to count-1 do 
  begin
    newvalue[i] := getvalue(i);
  end;
result:=true;

Пример довольно неказистый, но надеюсь понятный.