FreePascal.ru

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

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

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

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

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

AssignFile(Form1.Code8,Form1.FileCode);//Исходный файл. var Form1.Code8:file of byte;Form1.FileCode:string; значения переданы выше.
AssignFile ...

Спасибо за помощь

На обработке следующих строк кода


var f:textfile;
...
begin
...
assign(f,'File.txt');
...
{$I-}
//Проверка существования файла (IOresult=0 если да).
append(f);
//Если существует, то записать данные через пустую строку, иначе создать и записать ...