Выдача ошибки при компиляции, Не пойму в чем не прав Опции

[Искатель]

Здравствуйте! Хочу показать работу (обработка базы данных предприятий) ,в которой не знаю как запрограммировать две кнопки: "Удалить" предприятие и "Изменить" данные о предприятии. Помогите, пожалуйста.
Кнопку "Удалить" попробовал обработать, но получается какая-то ахинея.

Сообщение отредактировано: Искатель - 10.05.2011 21:42

[IUnknown]

MakeAction - это обычная функция, не метод класса формы, убери ее описание из класса.

Некоторые моменты в программе, как допустим этот

(Form2.FindComponent('Edit' + IntToStr(curr)) as TEdit).Clear;

я вряд ли смогу сегодня объяснить преподу, но попытаюсь.

Все очень просто... Смотри:

(Form2.FindComponent('Edit' + IntToStr(curr)) as TEdit).Clear;

Вместо того, чтобы 7 раз вызывать метод Clear у ЭдитБоксов по одному, сделаем это в цикле. Для этого на форме надо найти последовательно 7 компонентов с именами от Edit1 до Edit7. Этим занимается синяя часть... Но FindComponent возвращает указатель на компонент, то есть этот указатель знает только о тех общих свойствах, которые есть у всех компонентов. О том, что было добавлено потом, в наследниках, он понятия не имеет. Это нас не очень устраивает, ведь надо вызвать-то метод Clear, которого не было у TComponent, он был введен позже.

Постой. Но ведь мы, пытаясь искать компоненты, знаем, что там должен быть TEdit, так? Вот, значит, и надо привести найденный компонент к типу TEdit, чтобы он "узнал" о тех свойствах и методах, которые есть у Эдита. Этим занимается красная часть. Ну, а потом, собственно, вызываем нужный метод, или обращаемся к нужному свойству... Вот и всё...