Показать сообщение отдельно
  #8  
Старый 08.04.2008, 11:41
Grunch Grunch вне форума
Новичок
 
Регистрация: 08.04.2008
Адрес: Краснодар
Сообщения: 52
Репутация: 10
По умолчанию

У меня вот такой код:
Код:
var
MyDM: TdmMain;
...
begin
...
  try
    MyDm:=TdmMain.Create(nil);
  except
    writeln('Error '+IntToStr(GetLastError));
  end;
  readln;
...
end.
Вроде сделано по подобию того что советовали и, по идее, должно работать. Однако не работает. В консоль пишет: Error 0.
TdmMain - наследник TDataModule
Ответить с цитированием