FHandle in THandleStream better protected

[Borneq]

I write class TFileStreamW which is similar to TFileStream but argument filename is WideString insted of string
I want
constructor TFileStreamW.Create(const FileName: WideString; Mode: Word);
begin
  if Mode = fmCreate then
  begin
    inherited Create(FileCreateW(FileName));
    if FHandle < 0 then
      raise EFCreateError.CreateResFmt(@SFCreateError, [FileName]);
  end
  else
  begin
    inherited Create(FileOpenW(FileName, Mode));
    if FHandle < 0 then
      raise EFOpenError.CreateResFmt(@SFOpenError, [FileName]);
  end;
end;

I must use FHandle but it is private in classesh.inc
Better if it will protected

[Marc]

why not checking the result of FileCreateW(FileName) ?

[Borneq]

why not checking the result of FileCreateW(FileName) ?

Right!
Constructor will be:

constructor TFileStreamW.Create(const FileName: WideString; Mode: Word);
var
  Handle: Integer;
begin
  if Mode = fmCreate then
  begin
    Handle := FileCreateW(FileName);
    if Handle < 0 then
      raise EFCreateError.CreateResFmt(@SFCreateError, [FileName]);
  end
  else
  begin
    Handle := FileOpenW(FileName, Mode);
    if Handle < 0 then
      raise EFOpenError.CreateResFmt(@SFOpenError, [FileName]);
  end;
  inherited Create(Handle);
end;

[Borneq]

But..
How to close?

destructor TFileStreamW.Destroy;
begin
  if FHandle >= 0 then FileClose(FHandle);
  inherited Destroy;
end;

Must exists static variable indicating whether correctly open/create operation passed

[Marc]

Wouldn't the inherited handle stream close it ?

(otherwise keep a ref yourself)

[Borneq]

Wouldn't the inherited handle stream close it ?

Yes,I noticed after sending message
Thanks