Где надо написать присвоения, чтобы они использовались во всех процедурах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 Статья Где надо написать присвоения, чтобы они использовались во всех процедурах раздела Компоненты и Классы Процедуры и Функции может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Процедуры и Функции ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |