Ошибка при создании класса?

← →
lipskiy (2002-03-13 03:28) [0]

На самом деле нагромоздился ряд вопросов.
Изначальная задача была такая.
Есть модуль, в котором описан набор самостоятельных функций, вне какого-либо класса. Среди функций потребовалось использовать повторяющиеся операции через определенные интервалы времени, но чтобы прога не висла в этом месте на ожидании. Ничего лучшего в голову не пришло, кроме как использовать TTimer (может быть можно и проще?).
Но оказалось, что назначить на таймер событие можно только в пределах класса, просто процедура не вешается.
Объявил класс, самостоятельный, не наследуясь. Объявил внутри него все процедуры модуля и сам таймер. Написал конструктор Create в котором пытаюсь создать таймер, но он, собака, не создается, вылетает с ексепшеном. И вообще даже пустой конструктор не проходит - ошибка.

По сему вопросов два.
1. Как проще всего выполнять определенные действия через равные интервалы времени, если не использовать таймер и воообще компонентов для измерения времени.

2. Если объявлен пустой класс и внутри него присутствует только конструктор Create, то почему ошибка? Вот код:

unit Unit2; interface type TMyClass = class constructor Create; end; var MyClass1:TMyClass; implementation constructor TMyClass.Create; begin // здесь ошибка, кода никакого нет end; end.

И вызываю из основного модуля:

procedure TForm1.FormCreate(Sender: TObject); begin MyClass1.Create; end;

Чего не хватает?

Ошибка при создании класса? Найти похожие ветки