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

Информатика. Программирование в Delphi
296
N7.Checked:=false;
readln(f,s);
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;
procedure TForm1.N9Click(Sender: TObject);
begin
StringGrid1.RowCount:=StringGrid1.RowCount+1;
StringGrid1.Rows[StringGrid1.RowCount-1].Clear;
end;
procedure TForm1.N10Click(Sender: TObject);
var
i:word;
r:Integer;
begin
r:=MessageDlg('Удалить строку???',mtInformation,mbOKCancel,0);
if r=mrOk then
with StringGrid1 do