Light Style© by Fisana

Перейти к содержимому


Инвестиционные фонды NordFx: профессиональное управление и прозрачность


NordFX

Фотография

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


  • Пожалуйста, авторизуйтесь, чтобы ответить
4 ответов в этой теме

#1 joe2009

joe2009

    живет тут

  • Пользователи ST test (off)
  • PipPipPipPipPip
  • 127 сообщений

Опубликовано 07 Декабрь 2010 - 05:27

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

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

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

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

#2 joe2009

joe2009

    живет тут

  • Пользователи ST test (off)
  • PipPipPipPipPip
  • 127 сообщений

Опубликовано 13 Декабрь 2010 - 02:20

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

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

#3 joe2009

joe2009

    живет тут

  • Пользователи ST test (off)
  • PipPipPipPipPip
  • 127 сообщений

Опубликовано 14 Декабрь 2010 - 04:05

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


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.



#4 joe2009

joe2009

    живет тут

  • Пользователи ST test (off)
  • PipPipPipPipPip
  • 127 сообщений

Опубликовано 14 Декабрь 2010 - 04:10

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

uses INIDLL;

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


#5 dzubang

dzubang

    пробегал

  • Пользователи
  • Pip
  • 6 сообщений

Опубликовано 27 Февраль 2018 - 05:41

самое то 






Посетителей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных пользователей

Рейтинг брокеров форекс: кто лидер, кто аутсайдер и почему?




Masterforex-V NordFX

Rambler's Top100

Принимаем Z-Payment