VPF::Множество Datamodule - Форум программистов

CrazyPiggy

Дата 29.9.2011, 15:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 4.6.2008

Репутация: нет
Всего: нет

Добрый день. В программе я создаю несколько DataModule динамически. Подскажите пожалуйста как мне Пробежаться по всем эти DataModule. Естьли для DM что то типа для определения списка форм

Код


    for i := Screen.FormCount - 1 DownTo 0 do
      if (Screen.Forms[i].Caption <> Caption) then
    begin
    try
       Screen.Forms[i].Close;
       Result := True;
    except
       Result:=false;
    end;

AndreyIQ

Дата 29.9.2011, 15:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 5.2.2007

Репутация: 1
Всего: 8

Код


  for i := 0 to Application.ComponentCount - 1 do
    if Application.Components[i] is TDataModule then
      ShowMessage(Application.Components[i].Name);

CrazyPiggy

Дата 29.9.2011, 15:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 4.6.2008

Репутация: нет
Всего: нет

Большое спасибо.

Дело в том что у меня есть два модуля типа TDataModule. Один основной, а на основе второго я создаю динамически

Код


     DMPost:=TDMPost.Create(nil);
     DMPost.Tag:=FDataPostID.AsInteger;
     DMPost.DBName:=FDataPostNAME_BASE.AsString;

И хочется обратиться к Датасету этого модуля

Код


 if (Application.Components[i] is TDMPost) then
                      (Application.Components[i] as TDMPost).FIBDataset1.CloseOpen(true)

Но чтото ничего не срабатывает

Это сообщение отредактировал(а) CrazyPiggy - 29.9.2011, 16:34

CrazyPiggy

Дата 29.9.2011, 18:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 4.6.2008

Репутация: нет
Всего: нет

Ни у кого нет никаких идей? Просто очень срочно нужно решить эту проблему

bems

Дата 29.9.2011, 19:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: нет
Всего: 88

Цитата(CrazyPiggy @ 29.9.2011, 15:45

)

Но чтото ничего не срабатывает

не срабатывает потому что тут

Цитата(CrazyPiggy @ 29.9.2011, 15:45

)

DMPost:=TDMPost.Create(nil);

владельцем указан nil
Или сделай им всем одного владельца (например Application) или вручную добавляй в собственный список при создании

--------------------

Обижено школьников: 8

Frees

Дата 29.9.2011, 19:09 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

Код


 for i := 0 to screen.DataModuleCount - 1 do 
    screen.DataModules[i]

работает даже если владелец nil (проверил)

Это сообщение отредактировал(а) Frees - 29.9.2011, 19:24

--------------------

Кольцов Виктор Владимирович

CrazyPiggy

Дата 29.9.2011, 20:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 4.6.2008

Репутация: нет
Всего: нет

Ок, ща проверю. Благодарю

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »