Запись в типизированный файл из текстового

@Locust · Регистрация: 09.11.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте.

Необходимо создать типизированный файл из символов от "А" до "Я": либо сгенерировать в случайном порядке, либо переписать в типизированный из текстового файла, а дальше решать поставленную задачу.
Случайные числа генерятся, задача решается. Но с созданием из текстового файла почему-то проблемы, пожалуйста, посмотрите код и помогите найти ошибки.

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
  ftext: TextFile;
  ftyp: file of Char;
  r: Char;
begin
 if OpenDialog1.Execute then
 begin
  AssignFile(ftext, OpenDialog1.FileName);
  AssignFile(ftyp, Edit1.Text);
  try
    Reset(ftext);
  try
    try
      Rewrite(ftyp);
      try
        while not eof(ftext) do
        begin
          readln(ftext, r);
          write(ftyp,r);
        end;
      finally
        CloseFile(ftyp);
      end;
    except
      ShowMessage('Не удалось создать типизированный файл '+ Edit1.Text);
    end;
  finally
    CloseFile(ftext);
  end;
  except
    ShowMessage('Не удалось открыть текстовый файл '+ OpenDialog1.FileName);
  end;
 end
 else ShowMessage('Текстовый файл не задан!');
end;

Дебаггер ругается так, как показано на приложенном скриншоте, на строчке, записывающей переменную в типизированный файл.

@FIL · 16.04.2013, 22:26

В Edit1.Text что написано?

@Locust · 16.04.2013, 22:28 **[ТС]**

Я редкий кретин, спасибо, теперь вопросов нет!

@cotseec · 16.04.2013, 22:34

I/O 6 говорит о том, что пытаешься открыть файл, которого нет (его имя написано в Edit1)

@Locust · 16.04.2013, 22:39 **[ТС]**

Нашла сейчас список всех I/O ошибок, теперь буду знать.
____________
Но, в общем-то, ничего кроме моей вечной невнимательности не виновато.

@FIL Модератор 3491 / 2614 / 741 Регистрация: 19.09.2012 Сообщений: 7,976
	16.04.2013, 22:26	2
	В Edit1.Text что написано? 1

@Locust 1 / 1 / 1 Регистрация: 09.11.2012 Сообщений: 82
	16.04.2013, 22:28 [ТС]	3
	Я редкий кретин, спасибо, теперь вопросов нет! 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	16.04.2013, 22:34	4
	I/O 6 говорит о том, что пытаешься открыть файл, которого нет (его имя написано в Edit1) 0

@Locust 1 / 1 / 1 Регистрация: 09.11.2012 Сообщений: 82
	16.04.2013, 22:39 [ТС]	5
	Нашла сейчас список всех I/O ошибок, теперь буду знать. ____________ Но, в общем-то, ничего кроме моей вечной невнимательности не виновато. 0