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

Информатика. Программирование в Delphi
297
begin
if Row<RowCount-1 then
for i:=Row to RowCount-2 do
Rows[i]:=Rows[i+1];
if RowCount<=2 then
Rows[RowCount-1].Clear
else
RowCount:=RowCount-1;
end;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
sort;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
if not N12.Checked then
StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,
goHorzLine,goRangeSelect,goEditing]
else
StringGrid1.Options:=[goFixedVertLine,goFixedHorzLine,goVertLine,
goHorzLine,goRangeSelect];
end;
procedure TForm1.N3Click(Sender: TObject);
var
r:integer;
begin
r:=MessageDlg('Сохранить файл?',mtInformation,mbYesNoCancel,0);
if r=mrYes then
if SaveDialog1.Execute then
savetofile(SaveDialog1.FileName);
if r=mrCancel then
exit;
StringGrid1.RowCount:=2;
StringGrid1.Rows[1].Clear;
currfile:='';
end;
procedure TForm1.N13Click(Sender: TObject);
begin
if FontDialog1.Execute then