Сообщество Чайников

Вопрос

Где надо написать присвоения, чтобы они использовались во всех процедурах? Например, для (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

Novikov Dmitry