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

[joe2009]

Тема посвящена работе с файлами, их редактированию, созданию, удалению.

 

В данной ветке мы будем учиться создавать текстовые файлы настроек для управления библиотекой для трейдинга.

 

Целью данной ветки является создание модуля для работы с файлом настроек для разрабатываемой библиотеки.

 

Модуль INIDLL.pas входит в состав проекта библиотеки. Скачать его можно если перейти по этой ветке

[joe2009]

Хорошо, когда все что мы пишем в своих программах работает... но только на нашем компьютере .

А как быть с другими, когда в программе куча привязок к каталогам, расположению файлов и т.д.?

 

В данной ветке я Вам расскажу как просто и быстро при помощи Delphi создавать файлы настроек, куда можно будет указать все интересующие нас данные о каталогах, файлах, параметрах и т.д.

[joe2009]

Ниже представлен пример текста модуля для работы с файлом настроек:

 

unit INIDLL;

interface

uses
 SysUtils, Classes, IniFiles,Dialogs;

type
 DLLINI = class // объявление класса
 private
   ffilename: string;
   procedure LoadParams;
 public
   FFile: TIniFile;
   DBPath: string;
   Constructor Create;
   Destructor Destory(Sender: TObject);
 end;

implementation

constructor DLLINI.Create; // при создании объекта
var _appath:string;
begin

 _appath:=ExtractFilePath(ParamStr(0)); // каталог exe-файла
 FFilename:=ExtractFileDir(_appath) + '\MT_DLL.ini';   // имя файла настроек, предполагается наличие файла там же
						// где находится exe-файл
 FFile:=TIniFile.Create(FFilename);			// создание объекта, реализующего работу с ini-файлом

 if not FileExists(FFilename) then
 begin
   FFile.WriteString('Main', 'DBPath', 'D:\BD_MT\MT4.FDB'); // при отсутствии файла - создаются записи настроек по умолчанию
						     // в данном случае - в секции Main параметр DBPath
 end;

 LoadParams;

 inherited;
end;

Destructor DLLINI.Destory(Sender: TObject); // разрушение объекта
begin

 FFile.free;
 inherited;

end;

procedure DLLINI.LoadParams; // загрузка параметров из файла
begin
 DBPath:=FFile.ReadString('Main', 'DBPath', 'D:\BD_MT\MT4.FDB'); // чтение значения параметра в свойство объекта DBPath
end;

end.

[joe2009]

Пример использования файла настроек:

 

uses INIDLL;

procedure TForm1.Button2Click(Sender: TObject);
var _in:DLLINI;
begin
   _in:=DLLINI.Create; // создание объекта
   ShowMessage(_in.DBPath); // вывод в окно свойства "Путь к базе данных"
   _in.free;
end;

[dzubang]

самое то