Ошибка I/O error 6

[Волк]

Пишу:

if OpenDialog1.Execute then begin
if opendialog1.FileName='' then
MessageBox (0,'Невыбран файл','Ошибка',MB_OK);
exit;
end
else begin

не работает сообщение не выскакивает а выскакивает :
I/Oerror6
что делать?

[Stilet]

На какой строке выскакивает?
Эта часть кода некриминальна, приводи весь код.

[Волк]

вот:

procedure TForm1.N3Click(Sender: TObject);
begin
memo1.Text:='';
n5.Enabled:=true;
if OpenDialog1.Execute then begin
if opendialog1.FileName='' then
MessageBox (0,'Невыбран файл','Ошибка',MB_OK);
exit;
end
else begin
fName := OpenDialog1.FileName;
AssignFile(f, fName);
{$I-}
Reset(f);
{$I+}
if IOResult <> 0 then
begin
MessageDlg('Ошибка доступа к файлу ' + fName,mtError,[mbOk],0);
exit;
end;
while not EOF(f) do
begin
readln(f, buf);
Memo1.Lines.Add(buf);
end;
CloseFile(f);
flag:=false;
end;

[mihali4]

А вот это явный "криминал":

if OpenDialog1.Execute then 
begin
if opendialog1.FileName='' then
MessageBox (0,'Невыбран файл','Ошибка',MB_OK);
exit;
end
else begin
fName := OpenDialog1.FileName;

Наверняка у OpenDialog1 ничего не прописано в инспекторе объектов в свойстве FileName.

[Волк]

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

А вот это явный "криминал":

if OpenDialog1.Execute then 
begin
if opendialog1.FileName='' then
MessageBox (0,'Невыбран файл','Ошибка',MB_OK);
exit;
end
else begin
fName := OpenDialog1.FileName;

Хоть я и исправил все равно ошибка выходит,
а сообщение нет

[Dark_Spirit]

if OpenDialog1.Execute
then
begin
<тут какието ваши действия>
...............................
...............................
end
else
begin
MessageBox (0,'Невыбран файл','Ошибка',MB_OK);
exit;
end

[Волк]

Dark_Spirit спасибо, помогло!

[mflat]

procedure TForm1.N3Click(Sender: TObject);
begin
if not OpenDialog1.Execute then exit;
 if OpenDialog1.FileName='' then
  MessageBox (0,'Не выбран файл','Ошибка',MB_OK);
  exit;
 else 
  begin
   FName := OpenDialog1.FileName;
   AssignFile(f, fName);
   {$I-}
   Reset(f);
   {$I+}
   if IOResult <> 0 then
    begin
      MessageDlg('Ошибка доступа к файлу ' + fName,mtError,[mbOk],0);
      exit;
    end;
While not EOF(f) do
  begin
    Readln(f, buf);
    Memo1.Lines.Add(buf);
  end;
CloseFile(f);
end;

Попробуй вот так. Может быть заработает

[Stilet]

Да действительно нужно проверять перед Assign не пусто ли имя файла и есть ли такой файл вообще.