не закрывается TFileStream

[fanlis]

var
  InFileL,InFileR: TFileStream;
begin
  try
    try
      InFileL:=TFileStream.Create(NameL,fmShareDenyNone);
      InFileR:=TFileStream.Create(NameR,fmShareDenyNone);
  
  //действия с файлами (в частности сравнение контрольных сумм)

    except
      on E: Exception do ShowMessage(E.Message);
    end;
  finally
      FreeAndNil(InFileL);
      FreeAndNil(InFileR);
  end;

Проблема в том, что при открытии второго файла InFileR возникает исключение (не могу получить доступ к файлу, так как он занят другим процессом), которое я вижу в except, и после этого не выполняется FreeAndNil(InFileR);, т.е. на нем тоже возникает исключение.
Что я делаю не так? Во всех примерах в интернете с TFileStream в try выполняется create, а в finally выполняется Free. Собственно Free я тоже пробовал, результат тот же.

[Аватар]

Ну видимо занят монопольно другим приложением. И free или FreeAndNil не нужно если объект не создан, а он и не создается когда исключение при создании

[Slym]

или так

var
  InFileL,InFileR: TFileStream;
begin
try
  InFileL:=TFileStream.Create(NameL,fmShareDenyNone);
  try
    InFileR:=TFileStream.Create(NameR,fmShareDenyNone);
    try
      //действия с файлами (в частности сравнение контрольных сумм)
    finally
       InFileR.Free;
    end;
  finally
    InFileL.Free;
  end;
except
   on E: Exception do ShowMessage(E.Message);
end;

или так

var
  InFileL,InFileR: TFileStream;
begin
  InFileL:=nil;InFileR:=nil;
  try
    try
      InFileL:=TFileStream.Create(NameL,fmShareDenyNone);
      InFileR:=TFileStream.Create(NameR,fmShareDenyNone);
    //действия с файлами (в частности сравнение контрольных сумм)
    except
      on E: Exception do ShowMessage(E.Message);
    end;
  finally
      FreeAndNil(InFileL);
      FreeAndNil(InFileR);
  end;

а лучше последовательное создание и убийство

a:=Create
try
  crc(a);
finally
  a.free;
end;
b:=Create
try
  crc(b)
finally
  b.free;
end;
if a<>b .....

[northener]

2 Slym
Всё бы хорошо, но конструкция

try
  SomeObject:=TSomeObject.Create();
  ... //что-то делаем
finally
  SomeObject.Free; //FreeAndNil(SomeObject);

бессмысленна и способна только добавить новое исключение.
Ибо если исключение возникает в конструкторе объекта, то объект просто не создаётся. И его не нужно уничтожать.
Т.е. конструкция для временного создания любого объекта с последующим его уничтожением должна выглядеть так:

SomeObject:=TSomeObject.Create();
try
  ... //деоаем что-то
finally
  SomeObject.Free. //FreeAndNil(SomeObject);
end;

[Slym]

Сообщение от northener

2 Slym
Всё бы хорошо, но конструкция

try
  SomeObject:=TSomeObject.Create();
  ... //что-то делаем
finally
  SomeObject.Free; //FreeAndNil(SomeObject);

бессмысленна и способна только добавить новое исключение.

вы забыли SomeObject:=nil;
т.к. переменная в стеке - там мусор и может произойти "Garbage.Free" - AV
но при начальной инициализации нилом все безопасно "nil.Free" - ОК

пруф:

procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

проверка:

procedure TForm1.Button1Click(Sender: TObject);
var SomeObject:TButton;
begin
  try
    Abort;
    SomeObject:=TButton.Create(nil);
  finally
    SomeObject.Free;//AV
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var SomeObject:TButton;
begin
  SomeObject:=nil;
  try
    Abort;
    SomeObject:=TButton.Create(nil);
  finally
    SomeObject.Free;//нет AV
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var SomeObject:TButton;
begin
  SomeObject:=nil;
  SomeObject.Free;//нет AV
  TObject(nil).Free;// и тут нет AV
end;

PS Я не пропагандирую за такой стиль, но оставляю его возможным

[Sciv]

Предположение: а у Вас NameL случайно не равно NameR?

[fanlis]

Нет, NameL <> NameR.
Спасибо за ответы! InFileL:=nil;InFileR:=nil; наверно самый подходящий вариант.
Меня просто насторожило, что практически все примеры в интернете сделаны так, как я сделал вначале. А в итоге получается, что я ловлю исключение, а в итоге исключение же и создаю.

[Sciv]

Сообщение от fanlis

практически все примеры в интернете сделаны так, как я сделал вначале

Плохие примеры ИМХО лучше всё-таки не только на примерах учиться, есть же и нормальные учебники

[Serge_Bliznykov]

Сообщение от fanlis

Меня просто насторожило, что практически все примеры в интернете сделаны так, как я сделал вначале.

просто прочитайте статью:
90% кода в интернете - говно (Блог GunSmoker-а)

[northener]

Сообщение от Slym

вы забыли SomeObject:=nil;

Я ничего не забыл, имхо. Это вы невнимательно прочитали мой ответ. В моем коде секция finally выполняется только если объект создан.