Где надо написать присвоения, чтобы они использовались во всех процедурах

Delphi , Компоненты и Классы , Процедуры и Функции

Оформил: 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

Присваивайте переменные на уровне модуля (в блоках var или global variables), чтобы они использовались во всех процедурах инициализации.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Процедуры и Функции ::