Программирование и комп-ры

Языки программирования


  Если вам нужно загружать и  сохранять  пользовательские  цвета  из  файла
CONTROL.INI, необходим некоторый  дополнительный  код.  Удалите  только  что
введенные строки и замените пару begin-end  обработчика  события  OnDblClick
следующими строками:

  VAR N, P: Word;
  begin
    WITH TIniFile.Create (‘CONTROL.INI’) DO
       try
       WITH ColorDialog1 DO
         BEGIN
            ReadSectionValues (‘Custom Colors’, CustomColors);
            IF Execute THEN
              BEGIN
              Form1.Color: = Color;
              FOR N: = 0 TO CustomColors.Count-1 Do
                BEGIN
                  P: = Pos (’ = ’, CustomColors [N]);
                 WriteString (‘CustomColors’,
                    Copy (CustomColors [N], 1, P-1),
                    Copy (CustomColors [N], P+1, 255)),
                  END;
                END;
              END;
           finally
           Free;
       END;
  end;
  Теперь следует перейти к началу файла и  добавить  в  оператор  uses  имя
модуля IniFiles (т.е. в начале файла нужно  найти  строку,  начинающуюся  со
слова uses и добавить IniFiles, а затем запятую). В  результате  при  каждом
двойном щелчке на форме пользовательские цвета диалога  Color  (Цвет)  будут
загружаться   из   файла   CONTROL.INI.   Если   добавить    или    изменить
пользовательские цвета и  щелкнуть  на  кнопке  ОК,  изменения  запишутся  в
CONTROL.INI.




смотреть на рефераты похожие на "Языки программирования"