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

Информатика. Программирование в Delphi
295
Form1.BorderIcons:=[biSystemMenu,biMinimize];
Form1.Width:=Monitor.Width;
Form1.Height:=Monitor.Height;
Form1.Left:=0;
Form1.Top:=0;
OpenDialog1.Filter:='Телефонный справочник (*.trb)|*.trb';
SaveDialog1.Filter:='Телефонный справочник (*.trb)|*.trb';
OpenDialog1.DefaultExt:='trb';
SaveDialog1.DefaultExt:='trb';
OpenDialog1.InitialDir:=CurrDir;
SaveDialog1.InitialDir:=CurrDir;
SaveDialog1.Options:=[ofOverwritePrompt,ofHideReadOnly,
ofEnableSizing];
N7.Checked:=true;
N7.AutoCheck:=true;
N8.Checked:=true;
N8.AutoCheck:=true;
N12.AutoCheck:=true;
StringGrid1.FixedCols:=0;
StringGrid1.ColCount:=3;
StringGrid1.RowCount:=2;
StringGrid1.Width:=ClientWidth;
StringGrid1.Height:=ClientHeight;
StringGrid1.Left:=0;
StringGrid1.Top:=0;
StringGrid1.Cells[0,0]:='Фамилия, имя, отчество';
StringGrid1.Cells[1,0]:='Телефон';
StringGrid1.Cells[2,0]:='Домашний адрес';
StringGrid1.PopupMenu:=PopupMenu1;
StringGrid1.ColWidths[0]:=StringGrid1.Width div 3;
StringGrid1.ColWidths[1]:=StringGrid1.Width div 6;
StringGrid1.ColWidths[2]:=StringGrid1.Width div 2 -5;
StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,
goHorzLine,goRangeSelect,goEditing];
if FileExists(CurrDir+'\Settings.stt') then
begin
AssignFile(f,CurrDir+'\Settings.stt');
Reset(f);
readln(f,s);
currfile:=s;
readln(f,s);
if s='true' then
N7.Checked:=true
else