Информатика. Программирование в 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
        
        
          
            //счетчики циклов