Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.14;
Скачать: CL | DM;

Вниз

file   Найти похожие ветки 

 
Владимир_А   (2007-09-17 13:40) [0]

Уважаемые мастера.
Скажите, можно ли к форме  как-то привязать file, наподобие  
использования tag в своих целях.


 
DiamondShark ©   (2007-09-17 13:46) [1]

А зачем?


 
Плохиш ©   (2007-09-17 13:49) [2]


> Владимир_А   (17.09.07 13:40)

Можно всё, что не запрещено законом.


 
Сергей М. ©   (2007-09-17 13:51) [3]

Можно. Но зачем - непонятно ...

Tag := ^MyVariableOfFileType;


 
Anatoly Podgoretsky ©   (2007-09-17 13:52) [4]

> Владимир_А  (17.09.2007 13:40:00)  [0]

Что это значит и про форму ли речь?


 
homm ©   (2007-09-17 13:54) [5]

> как-то привязать file

Что есть file?


 
Владимир_А   (2007-09-17 13:59) [6]

var
TFile:file;

Например, имеется много форм.
Хочу, чтобы каждая форма имела свой файл через tag или как-нибудь
по-другому.


 
{RASkov} ©   (2007-09-17 14:00) [7]

> [0] Владимир_А   (17.09.07 13:40)

Породи свой класс от TForm и "привязывай" в него что хочешь......


 
DiamondShark ©   (2007-09-17 14:10) [8]

type TMyForm = class(TForm)
 MyFile: file;
end;

это "как-нибудь по-другому".

Либо придётся раскрывать тему: "Что значит иметь свой фал?".


 
Jeer ©   (2007-09-17 14:24) [9]


> Скажите, можно ли к форме  как-то привязать file,


Можно так:

type TMyForm = class(TForm)
..
MyFileName: string;
end;

OnCreate..
MyFileName := Name + ".ext";


 
Сергей М. ©   (2007-09-17 14:39) [10]


> Хочу, чтобы каждая форма имела свой файл через tag или как-
> нибудь
> по-другому


"Если б я имел коня .." (С)

)

Что мешает объявить в классе формы любое поле, так или иначе имеющее отношение к файлу ?



Страницы: 1 вся ветка

Текущий архив: 2007.10.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.022 c
2-1189849336
Sonic90
2007-09-15 13:42
2007.10.14
TrackBar


15-1189762734
vladislavmsk
2007-09-14 13:38
2007.10.14
Специальный TGroupBox


15-1189775301
Dumb
2007-09-14 17:08
2007.10.14
Как создать интерфейс для Базы данных?


3-1181047173
Альф
2007-06-05 16:39
2007.10.14
Прерывание выполнения SELECT


15-1190042067
Pdkle
2007-09-17 19:14
2007.10.14
Объясните, пожалуйста, устное решение задачи №2