Скачать: CL | DM;

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

← →
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;

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c