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

Информатика. Программирование в Delphi
299
Application.Terminate;
end;
if r=mrNo then
Application.Terminate;
if r=mrCancel then
Action:=caNone;
AssignFile(f,CurrDir+'\Settings.stt');
Rewrite(f);
writeln(f,currfile);
if N7.Checked then
writeln(f,'true')
else
writeln(f,'false');
if N8.Checked then
writeln(f,'true')
else
writeln(f,'false');
if N12.Checked then
writeln(f,'true')
else
writeln(f,'false');
CloseFile(f);
end;
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if N8.Checked then
if key=#13 then
sort;
end;
end.