не коректно работает ввод-вывод с файла в коде. Что не так?

[M@N]

Пишу программу на Lazarus, одной из функций которой является шифрование файлов методом Цезаря.
Есть такой кусок кода:

Код: Выделить всё

                AssignFile(Form1.Code8,Form1.FileCode);//Исходный файл. var Form1.Code8:file of byte;Form1.FileCode:string; значения переданы выше.
                AssignFile(Form1.Coder8,Form1.FileCoder);//Зашифрованый файл. var Form1.Coder8:file of byte;Form1.FileCoder:string; значения переданы выше.
                //Открыть файлы...
                Reset(Form1.Code8);
                Rewrite(Form1.Coder8);
                //Шифрование...
                while (not eof(Form1.Code8)) do
                  begin
                    {$I-}
                    Read(Form1.Code8,x);
                    if (IOResult<>0) then begin Form1.FinishedSave('Error');goto Finish;end;//Ловим ошибки...
                    Inc(x,Form1.C_Coder.Value);
                    Write(Form1.Coder8,x);
                    if (IOResult<>0) then begin Form1.FinishedSave('Error');goto Finish;end;//Ловим ошибки...
                    {$I+}
                  end;
                //Закрыть файлы...
                CloseFile(Form1.Code8);//Исходный файл.
                CloseFile(Form1.Coder8);//Зашифрованый файл.
                Form1.FinishedSave('Ok');//Выводит сообщение об успехе сохранения зашифрованого файла


Работает (сохраняет) только через раз (в прямом смысле слова). Подскажите, пожалуйста, что не так?

[скалогрыз]

goto не так.
Избавься от goto и всё заработает.

Но если хочешь goto оставить, vitaly_l как раз специалист! напиши ему в личку, если он здесь не ответит.

[vitaly_l]

Избавься от goto и всё заработает.

Не слушайте "вредного" скалогрыза! Замените цикл while на "ПСЕВДО ЦИКЛ" из GoTo и "всё заработает"...
И не забудь-те закрыть файлы, когда "выходите" по GoTo.

.

[Padre_Mortius]

vitaly_l, для чего в данном случае менять цикл while на что-то другое?

[vitaly_l]

для чего в данном случае менять цикл while на что-то другое?

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

[скалогрыз]

И не забудь-те закрыть файлы, когда "выходите" по GoTo.

правильная подсказка.

[vitaly_l]

vitaly_l писал(а):
И не забудь-те закрыть файлы, когда "выходите" по GoTo.

правильная подсказка.

PS: А вообще скалогрыз прав, лучше не использовать GoTo, особенно когда можно легко без него обойтись.


.

[M@N]

Извините, что не описал назначение

1. Form1.C_Coder.Value -- целое число от 0 до 255
2. GoTo Finish -- после Finish:; всё коректно с закрытием файла

У меня пропал Internet
Почему сохраняет файл только через раз, я не знаю. За goto прийму к сведенью. Спасибо.
На всякий случай:
OS: Windows 7 32-bit
Lazarus 1.0.14 на FPC 2.6.2

[vitaly_l]

У меня пропал Internet

Вы точно уверены что у Вас нет интернета? И давно?

PS: приведите весь код полностью, иначе нашему: скалогрызу - будет сложно понять, что ошибки бывают не только при использовании goto.

/

[Снег Север]

Перед закрытием записываемого файла рекомендую вызвать Flush.

[M@N]

Расскажите, пожалуйста о Flush по-подробнее, Снег Север.

[Снег Север]

Flush empties the internal buffer of an opened file F and writes the contents to disk.

Код: Выделить всё

Var F : Text;

begin
  { Assign F to standard output }
  Assign (F,'');
  Rewrite (F);
  Writeln (F,'This line is written first, but appears later !');
  { At this point the text is in the internal pascal buffer,
    and not yet written to standard output }
  Writeln ('This line appears first, but is written later !');
  { A writeln to 'output' always causes a flush - so this text is
    written to screen }
  Flush (f);
  { At this point, the text written to F is written to screen. }
  Write (F,'Finishing ');
  Close (f);  { Closing a file always causes a flush first }
  Writeln ('off.');
end.

[Alex2013]

С "классическими файлами" вообще надо уже завязывать
(Код в system и окрестностях не обновляется веками как результат постоянные проблемы с осью и новым железом ..)
Юзайте TFileStream !