Ошибка abstract error

for i:= ControlCount - 1 downto 0 do
if controls[i] is TImage then
if (controls[i] as TImage).tag <> 0 then
 begin
 if (Controls[i] as TImage).Left = m.Left then
 if (Controls[i] as TImage).Top = m.Top + 64 then (controls[i] as TImage).Free;

Здаствуйте, подскажите пожалуйста, что мне делать, это мой код, свою работу он выполнает, но почему-то вызывает Abstarct Error. У меня собственно два вопроса:
1. Что значит этот Abstarct Error? (В хелпе к Delphi ничего про него нет.)
2. Как от него избавится?

> 1. Что значит этот Abstarct Error? (В хелпе к Delphi ничего
> про него нет.)

EAbstractError is the exception class for attempts to call an abstract method.

Unit

SysUtils

Description

EAbstractError is raised when an application tries to call an Object Pascal abstract method. It is also raised at design time when a component with an Object Pascal abstract method is placed on a form.

Abstract methods are declared with the abstract directive and must be overridden in descendant classes before an instance object can be created.

(c) Delphi Help.

> Что значит этот Abstarct Error?

Вызов абстрактного метода.

Твой код будет делать следующее — как только первый раз вызовется Free имедж будет удален из списка контролов и контрол i — это бцудет уже другой контрол. А ты обратишся уже к нему, как к TImage. Точнее, as сначала проверит, а потом уже обратится.

правильно сделать так
i:=COntrols.Count-1;
while (i > 0) do begin

Image:=TImage(Constrols[i]);
// теперь можно работать с интересующим тебя контролом
if Image.Left = … then
if Image.Top = … then begin
Image.Free;
inc (i);
Continue;
end;

….

dec (i);
end;

> 2Wish   (18.01.06 19:34) [5]

> Этого я не знаю, отладчик не заходит — просто Abstarct Error.

Как это — «не заходит»? Поставьте контрольную точку, пошагово выполняйте до появления исключения.

Мне, например, не совсем ясно, как этот код может вызвать EAbstractError.

«не заходит» это очепятка, имелось ввиду не находит.

поставил в коде операторы Showmessage и начал следить за происходящим:
оказалось абстрактная ошибка произходит в самом конце процедуры, после всех операторов, причем ошибка возникает только если в конце кода стоит m.free;, когда я создавал топиг я не придал значения этому оператору и даже не скопировал его. тогда новый вопрос: почему освобождение из памяти переменной M: TImage может вызывать абстракную ошибку.

2Плохиш

«что это что это за фигня такая «m»» не имеет принципиального значения, хоть какие нить кнопка, хоть название формы.

На один пост выше написанно, «что это что это за фигня такая «m»». Если тебе влом пречитать посты выше, но очень хочется обосрать кого нить — думаю ты выбрал не тот форум.

зы. Вопрос остаётся открытым, выкладываю полный код процедуры:


private
m:  TImage;

m.free;
end;

Почему строчка m.free; вызывает Abstract Error???

private
m:  TImage;
…
m.free;

Ты процедуре компонент создаешь что-ли?
Если нет зачем .free?

> Почему строчка m.free; вызывает Abstract Error???

Варинтов тьма.
Например:
Потому, что к этому моменту m содержит «мусор», уже уничтоженный объект.

Где в коде m := ***.Create ?

Когда тя спрашивают «кто такой m», кроме всего имеется ввиду еще и «откуда он взялся, этот m?»

> Выберает эту переменную М сам юзер, так что получаем её
> вот таким образом m:=(Sender as TImage);

Что мешает «юзеру выбрать переменную M» дважды?

Понятия не имею причём тут AbstractError, но лично меня крайне смущает то, что во-первых:
 
> m:=(Sender as TImage);

, а во-вторых:

> m.free;
> end;
>
> Почему строчка m.free; вызывает Abstract Error???

Имхо, «на лице» попытка уничтожить объект из его собственного обработчика.

Форум программистов Vingrad

• Подписаться на тему
• Сообщить другу
• Скачать/распечатать тему

• Предыдущая тема
• Delphi: Сетевое программирование
• Следующая тема