![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#8
|
|||
|
|||
|
У меня вот такой код:
Код:
var
MyDM: TdmMain;
...
begin
...
try
MyDm:=TdmMain.Create(nil);
except
writeln('Error '+IntToStr(GetLastError));
end;
readln;
...
end.TdmMain - наследник TDataModule |