А почему у меня exit не выбрасывает из функций и процедур?

Приведи код

BraM's - это я на работе. Bratsman - дома.

p0s0l, код такой.

type
TMyClass = class
protected
F: File;
.....
end;


function TMyClass.OpenRead(FileName): boolean;
begin
AssignFile(F , FileName);
{$I-}
Reset(F , 1);
{$I+}
if IOResult <> 0 then begin
result := false;
exit;
end;
{дальше код продолжается}
end;

Так вот. Если файл не существует, то она проходит по конструкции exit, после чего идёт в тот код, который называется {дальше код продолжается}. И ещё несколько подобных ситуаций... Непример, не сделать проверку на ноль...

Может есть в Delfi такая же инструкция, как return в С++?

Это сообщение отредактировал(а) Bratsman - 3.7.2004, 09:12

Видимо глюки, раз такое происходит. Этот странный глюк - уже при компиляции должен генериться такой глючный код...
Exit - это и есть аналог return, после неё прога должна по смыслу переходить на последнюю строчку end;
Ну что можно посоветовать - используй else:

Код

function TMyClass.OpenRead(FileName): boolean; begin AssignFile(F , FileName); {$I-} Reset(F , 1); {$I+} if IOResult <> 0 then result := false else begin  {дальше код продолжается} end; end;

Bratsman
Так как написано у тебя - это в любом случае так называемый плохой тон в программировании... вроде использования goto и тому подобное... Как говориться работает, но.... всегда можно обйтись без этих оперторов...
Лучше послушайся p0s0l...

Попробуй обойти эту лажу через Label

Maverick
ну если говорить про дурной тон, тогда вообще не чере IOResult работать надо, а через try...except
типа так:

Код

AssignFile (F , FileName); Result := true; try  Reset (F , 1);   ....  {код} except result := false; end; CloseFile (F); end;

Это сообщение отредактировал(а) nJIaKca.spb - 4.7.2004, 19:53

nJIaKca.spb, тогда уж CloseFile надо засунуть перед except, иначе может быть ситуация, когда закрывается не открытый файл...

тогда уж лучше использовать try ... finnaly ... и CloseFile после finnaly вставлять.

Albinos_x, так будет появляться exception... А ему это вряд ли надо...

Тогда уже, соединив все вместе, получится это

Код

try  try    ...  finally    CloseFile(f);  end; except  Result := False end;

Это сообщение отредактировал(а) <Spawn> - 5.7.2004, 16:07

2 PosOl

Цитата

Exit - это и есть аналог return

Ты это серьезно????

Цитата(Guest @ 6.7.2004, 07:10)

2 PosOl Цитата Exit - это и есть аналог return Ты это серьезно????

И я о том же! Как это так, аналог?!

Цитата

Тогда уже, соединив все вместе, получится это  Код  try try    ... finally    CloseFile(f); end; except Result := False end;

Но это лишне, т.к. в случае try ... closefile except ... end до CloseFile всё равно доберётся только в случае успеха предыдущих операций...

Цитата

Цитата (Guest @ 6.7.2004, 07:10) 2 PosOl Цитата  Exit - это и есть аналог return Ты это серьезно???? И я о том же! Как это так, аналог?!

Люди, мож я че не понимаю, но единственное отличие exit от return в том, что в exit нельзя указать результат функции, это надо делать через Result := ...; А в return он указывается непосредственно...
Или, Pegas, ты меня разыгрываешь ?...

Цитата

единственное отличие exit от return в том, что в exit нельзя указать результат функции, это надо делать через Result := ...; А в return он указывается непосредственно...

Этого мало? В принципе, тот же танк, только на колесах и без дула...