Отправляет email-рассылки с помощью сервиса Sendsay

Программирование на Delphi

  Все выпуски  

Программирование на DELPHI v3-7 NEW!!


Информационный Канал Subscribe.Ru


Программирование на DELPHI

Программирование на DELPHI


Привет ВСЕМ.Это уже второй по счёту выпуск рассылки о программировании на DELPHI.
Если у вас есть предложения или замечания, прошу писать мне ForDelphi@Narod.ru

В этом выпуске

1)Создаём свой компоненты в DELPHI.-->
2)Работа с INI-файлами-->
3)Settings Windows XP-->


Создаём свои компоненты в Delphi

Компонент- это как-бы дополнительный *.pas файл из которого можно вызвать процедуру.

Создание.

1)Открываем диалог создания компанента(Компоненты->Создать компонент)

2)В поле "наследовать" пишем "Tcomponent", а в поле"Класс" - имя своего компонента. Далее следует поле "имя файла", туда мы пишем имя *.pas-файла, который будет являться {к нам во сне:-)} модулем.

3)Жмём кнопочку "устоновить" и переходим на вкладку "В новый пакет".Тута, в поле файл пишем имя файла- проекта(*.dpk),а в описании, что нашей душе угодно.

Ну вот и все. Осталось только сказать , что процедуры описываются в public.

Не забывайте про то, что масло-масленное, а вода мокрая.


Работа с INI файлами в DELPHI

Объект INIFILES - работа с INI файлами.

Почему иногда лучше использовать INI-файлы, а не реестр?
1. INI-файлы можно просмотреть и отредактировать в обычном блокноте.
2. Если INI-файл хранить в папке с программой, то при переносе папки на другой компьютер настройки сохраняются. (Я еще не написал ни одной программы, которая бы не поместилась на одну дискету :)
3. Новичку в реестре можно запросто запутаться или (боже упаси), чего-нибудь не то изменить.
Поэтому для хранения параметров настройки программы удобно использовать стандартные INI файлы Windows. Работа с INI файлами ведется при помощи объекта TIniFiles модуля IniFiles
4.Некоторые юзвери любят с умным видом удалять записи из реестра, а файл в дириктории C:\Windows\System32(к примеру sysera32.aeq) их обязательно отпугнёт

Constructor Create('d:\test.INI');
Создать экземпляр объекта и связать его с файлом. Если такого файла нет, то он создается, но только тогда, когда произведете в него запись информации.

WriteBool(const Section, Ident: string; Value: Boolean);
Присвоить элементу с именем Ident раздела Section значение типа boolean

WriteInteger(const Section, Ident: string; Value: Longint);
Присвоить элементу с именем Ident раздела Section значение типа Longint

WriteString(const Section, Ident, Value: string);
Присвоить элементу с именем Ident раздела Section значение типа String

ReadSection (const Section: string; Strings: TStrings);
Прочитать имена всех корректно описанных переменных раздела Section (некорректно описанные опускаются)

ReadSectionValues(const Section: string; Strings: TStrings);
Прочитать имена и значения всех корректно описанных переменных раздела Section. Формат :
имя_переменной = значение

EraseSection(const Section: string);
Удалить раздел Section со всем содержимым

ReadBool(const Section, Ident: string; Default: Boolean): Boolean;
Прочитать значение переменной типа Boolean раздела Section с именем Ident, и если его нет, то вместо него подставить значение Default.

ReadInteger(const Section, Ident: string; Default: Longint): Longint;
Прочитать значение переменной типа Longint раздела Section с именем Ident, и если его нет, то вместо него подставить значение Default.

ReadString(const Section, Ident, Default: string): string;
Прочитать значение переменной типа String раздела Section с именем Ident, и если его нет, то вместо него подставить значение Default.

Free;
Закрыть и освободить ресурс. Необходимо вызвать при завершении работы с INI файлом

Property Values[const Name: string]: string;
Доступ к существующему параметру по имени Name

Пример :

Procedure TForm1.FormClose(Sender: TObject);

var

IniFile:TIniFile;

begin

IniFile := TIniFile.Create('d:\test.INI'); { Создали экземпляр объекта }

IniFile.WriteBool('Options', 'Sound', True); { Секция Options: Sound:=true }

IniFile.WriteInteger('Options', 'Level', 3); { Секция Options: Level:=3 }

IniFile.WriteString('Options' , 'Secret password', Pass);

{ Секция Options: в Secret password записать значение переменной Pass }

IniFile.ReadSection('Options ', memo1.lines); { Читаем имена переменных}

IniFile.ReadSectionValues('Options ', memo2.lines); { Читаем имена и значения }

IniFile.Free; { Закрыли файл, уничтожили объект и освободили память }

end;


Settings Windows XP

Обновилась моя программа для настройки\оптимизации Windows XP c помощю изменения недокументированых параметров системы.Да, кстати она на DownLoad.ru несколько недель занимала 1-ое место по рейтингу( в разделе "Утилиты")может и сейчас занимает...
Размер- 200 kb
Интерфейс- Русский
Усливия распространения- Freeware(бесплатно)
Ссылка для скачки- Http://fordelphi.narod.ru/util.rar


С уважением, Angel(http://www.fordelphi.narod.ru)


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное