Стр. 285 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
285
if s='true' then
N8.Checked:=true
else
N8.Checked:=false;
//чтение признака присутствия галочки у пункта
// меню Только чтение
readln(f,s);
if s='true' then
begin
N12.Checked:=true;
//задание опций компонента
StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,
goHorzLine,goRangeSelect];
end
else
begin
N12.Checked:=false;
//задание опций компонента
StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,
goHorzLine,goRangeSelect,goEditing]
end;
//закрытие файла
CloseFile(f);
end;
//если автозагрузка включена
if N7.Checked then
begin
//если файл существует
if FileExists(currfile) then
//загрузка таблицы из файла
loadfromfile(currfile);
end
//если автозагрузка выключена
else
//начальное значение имени текущего файла
currfile:='';
end;
11. В инспекторе объектов для пункта PopupMenu1 Добавить строку
(N9 ) создайте процедуру N9Click для обработки события OnClick.
//выполняется при щелчке мышью
//по пункту меню Добавить строку
procedure TForm1.N9Click(Sender: TObject);