сохраняю стек, содержащий состояние картинки в файл, а потом загружаю его обратно, чтобы была возможность отмены действий на картинке
выскакивает ошибка Unsafe type 'f: file of tbitmap'
что не так, как ее исправить?
Код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AssignFile(f,'File1.pnt');
Rewrite(f);
while Nazad<>nil do
begin
DeleteN(Nazad,RN1);
write(f,RN1);
end;
CloseFile(f);
AssignFile(f1,'File2.pnt');
Rewrite(f1);
while Vpered<>nil do
begin
DeleteN(Vpered,RV1);
write(f1,RV1);
end;
CloseFile(f1);
end;
procedure TForm1.mniN8Click(Sender: TObject);
begin
AssignFile(f,'File1.pnt');
Reset(f);
while not Eof(f) do
begin
read(f,RN1);
if Nazad <> nil then
InsertN(Nazad,RN1)
else
make(Nazad,RN1);
end;
CloseFile(f);
AssignFile(f1,'File2.pnt');
Reset(f1);
while not Eof(f1) do
begin
read(f1,RV1);
if Vpered <> nil then
InsertN(Vpered,RV1)
else
make(Vpered,RV1);
end;
CloseFile(f1);
if Nazad<>nil then
btn6.Enabled:=True;
if Vpered<>nil then
btn7.Enabled:=True;
end;