Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

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.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



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


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
23.09.2020 22:32:03/0.0091650485992432/0