Информатика. Программирование в Delphi
279
Рис. 24.4
Рис. 24.5
//сортировка таблицы по алфавиту (ФИО)
//по ФИО
procedure sort;
//сохранение таблицы в файл
procedure savetofile(path:string);
//загрузка таблицы из файла
procedure loadfromfile(path:string);
var
//форма
Form1: TForm1;
//текущая директория
currdir:string;
//текущий файл
currfile:string;
7. В раздел
Implementation
поместим процедуру
Sort
.
//сортировка таблицы по алфавиту ФИО
procedure sort;
var
//счетчики циклов