Информатика. Программирование в 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
//счетчики циклов
I...,269,270,271,272,273,274,275,276,277,278 280,281,282,283,284,285,286,287,288,289,...370