Объект TFileStream

[Aleksey1989]

Здравствуйте. При создании файла командой TFileStream.Create(п1,п2,п3) нужно описать три параметра. Первые два-понятно, а вот с третьим у меня возникли некоторые сложности, а именно: при использовании в качестве параметра fmShareDenyNone или fmShareExclusive при попытке открыть файл txt возникает запрет на доступ. Тогда в чём между данными значениями отличие?

 file1:=TFileStream.Create('1.txt',fmOpenRead,fmShareDenyNone);

[SERG1980]

fmShareExclusive - файл недоступен для открытия другими приложениями
fmShareDenyWrite - другие приложения могут читать данные из файла
fmShareDenyRead - другие приложения могуть писать данные в файл
fmShareDenyNone - другие приложения могут производить с файлом любые операции

[Aleksey1989]

Почему я тогда не могу открыть текстовый файл при любом значении данного параметра?

[SERG1980]

ну и откройте его так

 file1:=TFileStream.Create('1.txt',fmOpenRead)

[Stilet]

А он еще никем не открыт случайно?

[Aleksey1989]

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

ну и откройте его так

 file1:=TFileStream.Create('1.txt',fmOpenRead)

Но третий параметр как тогда использовать: просто интересно в чём проблема?

Больше этот файл ни чем не используется.

[avd]

Поднимем тему.
Честным образом часа два убил чтобы решить проблему. Не вышло.
Может кто объяснит, что не так.

procedure TForm2.Button1Click(Sender: TObject);
var
  fStream: TFileStream;
  strList: tStringList;
begin
  fStream := TFileStream.Create('c:\11.txt', fmCreate or fmOpenReadWrite or fmShareDenyNone);
  fStream.Seek(0, soFromEnd);
  fStream.Write(AnsiString(TimeToStr(Time))[1], 8);

  strList := TStringList.Create;
  strList.LoadFromFile('c:\11.txt'); // ТУТА ИСКЛЮЧЕНИЕ
  strList.Free;
  fStream.Free;
end;

[veniside]

procedure TStrings.LoadFromFile(const FileName: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

вот такие редиски были в борланде, не удивительно, что они прогорели

[avd]

Спасибо!

Редиски не только в борланде, но оказывается и наши песатили которые пишут книги типа "Delphi. Полное руководство"