Delphi World - Где надо написать присвоения, чтобы они использовались во всех процедурах
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Где надо написать присвоения, чтобы они использовались во всех процедурах

Оформил: DeeCo

Вопрос: Novikov Dmitry

Где надо написать присвоения, чтобы они использовались во всех процедурах? Например, для (var) inif : TiniFile; присвоение (begin) inif := tinifile.create('c:\work\enter.ini'); надо прописывать для каждой процедуры, что не очень удобно.

Ответ
unit TestUnit;
interface
procedure Test(var
  Param);
implementation
uses// прописать то, что надо
var
  IniFile: TIniFile;

procedure Test(var Param);
begin
  IniFile.ТырыПыры;
end;

procedure Test2;
begin
  IniFile.ТралиВали;
end;
initialization
  IniFile := TIniFile.Create('c:\work\enter.ini'); //finalization // …IniFile.Free;end
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования